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SYSTEMS AND METHODS FOR MULTIPLE-FILE DATA COMPRESSION 

Field of the Invention 

This invention relates to the field of data compression. In particular, it relates to systems and methods of 
organizing multiple files to be compressed into one archive file, and systems and methods of compressing the multiple files 
5 as one unified file. 

Background 

A number of compression methods have been utilized to reduce the size of an input data file by encoding symbols 
or strings of symbols as numeric codes or combinations of numeric codes and symbols. Such encoding reduces repetitions 
of symbols in the input data file. Major categories of compression methods include dictionary methods and statistical 
10 methods. Dictionary methods encode strings of symbols as tokens using a dictionary. A token indicates the location of the 
string in the dictionary. Dictionary methods include LZ77, LZ78, LZSS, and LZW. Statistical methods use codes of variable 
lengths to represent symbols or groups of symbols, with the shorter codes representing symbols or groups of symbols that 
appear or are likely to appear more often. Statistical methods include the Huffman method and the dynamic Huffman 
method. 

15 The LZ77 method reads part of the input data into a window. The window is divided into a search buffer (i.e., a 

dictionary) on the left and a look-ahead buffer on the right. The search buffer is the current dictionary that includes 
symbols that have been read and encoded. The look-ahead buffer includes data yet to be encoded. The encoder scans the 
search buffer from right to left looking for a match to the longest stream of symbols in the look-ahead buffer. When the 
longest match is found, the matched stream of symbols plus the next symbol in the look-ahead buffer are encoded as a 

20 token containing three parts, the position (i.e., the distance from the end of the search buffer), the length of the longest 
match, and the next symbol. For a more detailed description of the LZ77 method please refer to pages 154-157 of Data 
Compression the Complete Reference by David Salomon, Second Edition, 2000. The LZ78 method is a variation of LZ77. 
For a more detailed description of the LZ78 method please refer to pages 164-168 of Data Compression the Complete 
Reference by David Salomon, Second Edition, 2000. 

25 The LZSS method is a variation of LZ77. Unlike the LZ77 tokens, LZSS tokens use two fields instead of three. An 

LZSS token includes a position and a length. If no match is found, the uncompressed code of the next symbol is produced 
as output, with a flag bit to indicate it is uncompressed. The LZSS method also holds the look-ahead buffer in a circular 
queue and the search buffer in a binary search tree. For a more detailed description of the LZSS method please refer to 
pages 158-161 of Data Compression the Complete Reference by David Salomon, Second Edition, 2000. 

30 The LZW method is a variation of LZ78. For a detailed description of the LZW method please refer to U.S. Patent 

l\lo. 4,558,302 issued on December 10, 1985. 
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The Huffman method, also called the static Huffman method, builds a list of all of the symbols in descending 
order according to their probabilities of appearance. The method builds a tree from the bottom up with each leaf 
representing a symbol. The two symbols with the smallest probabilities of appearance are added to the top of the tree and 
deleted from the list. An auxiliary symbol is created to represent these two symbols. This process is repeated until the list 
5 is reduced to one auxiliary symbol. The method then assigns codes of variable length to the symbols on the tree. One 
variation of the Huffman method is the dynamic, or adaptive, Huffman method. This method assumes that the probabilities 
of appearance are not known prior to reading the input data. The compression process starts with an empty tree and 
modifies the tree as symbols are being read and compressed. The decompression process works in synchronization with the 
compression process. For a more detailed description of the Huffman method and the dynamic Huffman method please refer 

10 to pages 62-82 of Data Compression the Complete Reference by David Salomon, Second Edition, 2000. 

Context based methods are another type of compression methods. Context based methods use one or more 
preceding symbols to predict (i.e., to assign the probability of) the appearance of the next symbol. For example, in English, 
the letter "q" is almost always followed by the letter "u". When letter "q" appears, a context based method would assign a 
high probability of appearance to the letter "u". One example of a context based method is the Markov model which may be 

15 classified by the number of proceeding symbols it uses to predict the next symbol. An Order-N Markov model uses the N 
preceding symbols to predict the next symbol. For a more detailed description of the Markov model, please refer to page 
126 and pages 726 - 735 of Data Compression the Complete Reference by David Salomon, Second Edition 2000. 

Compression methods may be used by programs to compress multiple files to archives. For example, the ARC 
program compresses multiple files and combines them into one file called an archive. PKZIP is a variation of ARC. ZIP is an 

20 open standard created by the maker of PKZIP for compressing files to archives. For details of ARC and PKZIP please refer 
to pages 206-211 of Data Compression the Complete Reference by David Salomon, Second Edition, 2000. Other 
compression/archiving programs include ARJ by Robert K. Jung, LHArc by Haruyasu Yoshizaki, and LHZ by Haruhiko 
Gkumura and Haruyasu Yoshizaki. 

Summary of the Invention 

25 The systems and methods relate to the compression of multiple files into a single file called an archive. The 

systems and methods examine the multiple files to determine their data characteristics. The systems and methods then 
arrange the order of the multiple files according to their data characteristics to increase the potential of data redundancy 
among neighboring files. The increased potential of redundancy provides potential improvement in compression ratio and 
compression speed. The ordered multiple files are then combined as one unified file and compressed. ' 

30 One embodiment uses a dictionary method to compress the unified file. In addition, a large dictionary is used in 

one embodiment to take advantage of potential between-file redundancies. In another embodiment, the redundancy 
characteristics of the multiple files are examined to dynamically determine the dictionary size. After the dictionary 
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compression method produces an intermediary output data file, the intermediary output data may be separated into multiple 
sections, such that for each section a compression method that Is potentially suitable for the data characteristics of that 
section is applied. The compressed result of each section are then combined to produce the final output. 

One embodiment of the present invention is a method of compressing a plurality of files. The method comprises 
5 examining said plurality of files to determine data characteristics that correspond to said plurality of files and determining 
ranking orders for said plurality of files according to said data characteristics. In addition, the method comprises combining 
said plurality of files into a unified file at least according to said ranking orders and compressing said unified file. 

An additional embodiment of the present invention is a system for compressing a plurality of files. The system 
comprises an examination module configured to examine said plurality of files to determine data characteristics that 
10 correspond to said plurality of files and an ordering module configured to determine ranking orders for said plurality of files. 
In addition, the system comprises a combining module configured to combine said plurality of files as a unified file at least 
according to the ranking orders of said plurality of files and a compressing module configured to compress said unified file 
using a first compression method. 

A further embodiment of the present invention is a system for compressing a plurality of files. The system 
15 comprises means for examining said plurality of files to determine data characteristics that correspond to said plurality of 
files and means for determining ranking orders for said plurality of files. In addition, the system comprises means for 
combining said plurality of files as a unified file at least according to the ranking orders of said plurality of files and means 
for compressing said unified file using a first compression method. 

For purposes of summarizing the invention, certain aspects, advantages, and novel features of the invention are 
20 described herein. It is to be understood that not necessarily all such advantages may be achieved in accordance with any 
particular embodiment of the invention. Those skilled in the art will recognize that the invention may be embodied or 
carried out in a manner that achieves one advantage or a group of advantages as taught herein without necessarily 
achieving other advantages as may be taught or suggested herein. 

These and other features will now he described with reference to the drawings summarized below. These 
25 drawings and the associated description are provided to illustrate embodiments of the invention, and not to limit the scope 
of the invention. Throughout the drawings, reference numbers are re-used to indicate correspondence between referenced 
elements. In addition, the first digit of each reference number indicates the figure in which the element first appears. 

Brief Description of the Drawings 
FIGURE 1 illustrates a high-level block diagram for one embodiment of a multiple-file compression system. 
30 FIGURE 2 illustrates one embodiment of an example original file list and one embodiment of an example sorted file 

list. 



3 
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FIGURE 3 illustrates one embodiment of a unified input data file, one embodiment of an intermediary output file, 
and one embodiment of a final output file. 

FIGURE 4 illustrates a flowchart of one embodiment of a first-stage compression process. 
FIGURE 5 illustrates a flowchart of one embodiment of a second-stage compression process. 



4 
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Detailed Description 
I. OVERVIEW 

The present invention relates to the compression of multiple files into a single file called an archive. The data 
characteristics of the multiple files are examined to determine the order in which the files are ranked in a sorted file list. 
5 The files are then combined into a single unified file according to the order of the sorted file list and compressed. The 
ordering of the files increases the potential of repetition among neighboring files and provides potential improvement in 
compression ratio and compression speed. In one embodiment, the compressed results are compressed a second time. 

One embodiment of the systems and methods compresses the ordered files using a dictionary method and utilizing 
a large dictionary. Such a large dictionary not only has the potential to improve the compression ratio of files with high 
10 degree of redundancy within a file, but also has the potential to improve the compression ratio of neighboring files that are 
somewhat redundant with each other. Because similar files have been placed next to each other in the sorted file list a 
large dictionary is likely to take advantage of between-file redundancy to improve the compression ratio of the files. 
Another embodiment examines the redundancy characteristics of the multiple files to dynamically determine the dictionary 
size. 

15 In further compressing the intermediary output data already compressed by a dictionary method, one embodiment 

separates the intermediary output data into multiple sections based on the characteristics of the intermediary output data. 

The data within each section may have redundancy. Each section of the intermediary output data Is compressed using a 

method that is potentially suitable for compressing data with such characteristics. The compressed results are then 

combined with header information to form the final output data. 
20 II. MULTIPLE FILE COMPRESSlOW SYSTEM 

FIGURE 1 illustrates a high-level block diagram of a multiple-file compression system 102. The system 102 

includes an examination module 104, an ordering module 106, a combining module 108 and a compressing module 110. 

One embodiment of the compressing module 110 also includes a first compressing sub-module 112 and a second 

compressing sub-module 1 14. 

25 As used herein, the word module, whether in upper or lower case letters, refers to logic embodied in hardware or 

firmware, or to a collection of software instructions, possibly having entry and exit points, written in a programming 
language, such as, for example, C+ + . A software module may be compiled and linked into an executable program, 
installed in a dynamic link library, or may be written in an interpretive language such as BASIC. It will be appreciated that 
software modules may be callable from other modules or from themselves, and/or may be invoked in response to detected 

30 events or interrupts. Software instructions may be embedded in firmware, such as an EPROM. It will be further 
appreciated that hardware modules may be comprised of connected logic units, such as gates and flip-flops, and/or may be 
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comprised of programmable units, such as programmable gate arrays or processors. The modules described herein are 
preferably implemented as software modules, but may be represented in hardware or firmware. 

It should be obvious to those skilled in the art that the modules described in the application may be integrated into 
fewer modules. One module may also be separated into multiple modules. It should also be obvious to those skilled in the 
5 art that the described modules can be implemented as hardware, software, firmware or any combinations of. The described 
modules may reside at different locations connected through a wired or wireless network. 
A. Examination Module 

The examination module 104 prompts a user to identify an original file list 202. An example of the original file list 
202 is illustrated in FIGURE 2 and will be discussed further below. Referring back to FIGURE 1, the examination module 

10 104 examines the files in the original file list 202 to determine the data characteristics of each file. The examination may 
include reading all or part of each file, reading attribute/properties information of each file, reading the size, location, name 
and/or extension of each file, as well as a combination of the above. In one embodiment, the examination module 104 
examines the appearance frequencies of "a-Z" alphabets. In another embodiment, the examination module 104 examines 
the appearance frequencies of numbers. 

15 B. Ordering Module 

The ordering module 1 06 orders files of the original file list 202 into a sorted file list 202. An example of the 
sorted file list 204 is illustrated in FIGURE 2 and discussed further below. Referring back to FIGURE 1, files in the sorted 
file list 204 are ordered according to their data characteristics examined by the examination module 1 04. Files with similar 
data characteristics are placed next to each other. The examination module 104 may examine multiple data characteristics 

20 of each file, and the ordering module 106 may determine the ordering of the files according to some or all of their multiple 
data characteristics. For example, files may be sorted by file extension first and then by file name. For another example, 
files may be sorted by file extension first and then by file size. In one embodiment, the ordering module 106 automatically 
orders files in the sorted file list. In another embodiment, the ordering module 106 acts as a wizard and provides a user 
with help information to assist the user in determining the order of the files. Help information may include, for example, the 

25 data characteristics of the files. 

In addition to using the sorted file list 204, other embodiments may also be used to record the order of files of the 
original file list 202. For example, each file of the original file list 202 may be assigned an order number indicating the order 
in which it would be combined by the combining module 1 08. 
C. Combining Module 

30 The combining module 1 08 combines the files successively according to the order in the sorted file list 204, to 

form a unified input data file 302. An example of the unified input data file 302 is illustrated in FIGURE 3 and is discussed 
further below. Referring back to FIGURE 1, the combining module 108 removes the "End-of-File" (i.e., "EOF") marker from 
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each file except for the last file in the sorted file list 204. In one embodiment the combining module 108 also creates an 
archive header portion 304 and a file header portion 306. 
D- Compressing Module 

The compressing module 110 applies a first compression method to the unified input data file 302 produced by 
5 the combining module 108. In one embodiment, the compressing module 110 applies a dictionary method. The compressing 
module 110 examines the files in the sorted file list 204 and determines a dictionary size that is likely to be optimal with 
the redundancy characteristics of the files in the sorted file list 204. In one embodiment, the determination of the 
dictionary size is made by the examination module 104. The determination of the dictionary size may also be made by the 
ordering module 106 or by the user, in one embodiment, the compressing module 110 also compresses the file header 
10 portion 306 to produce a compressed file header portion 324. The compressing module 110 combines the archive header 
304, the compressed file header portion 324 and the compressed result of the unified input data file 302 to produce the 
final output file 322. 

In one embodiment, the compressing module 110 applies a second compression method to the intermediary 
output file 312 produced by the first compression method. In one embodiment, the compressing module 110 separates the 

15 intermediary output file 312 into multiple sections and compresses the data in one or more of the sections, the 
compressing module 1 1 0 then combines the compressed or uncompressed results of all the sections to form the final 
compressed data portion 326. The compressing module 110 combines the final compressed data portion 326, the archive 
header portion 304, and the file header portion 306 or the compressed file header portion 324 to form the final output file 
322. In one embodiment, a recovery information portion 328 is also appended to the final output file 322. An example of 

20 the final output file 322 is illustrated in FIGURE 3 and Is further discussed below. 

One embodiment of the compressing module 110 includes a first compressing sub-module 112 and a second 
compressing sub-module 1 14. The first compressing sub-module 1 12 is configured to apply a first compression method to 
the unified input data file 302. The second compressing sub-module 114 is configured to apply a second compression 
method to the intermediary output file 312 produced by the first compression method. 

25 In one embodiment, the compressing module 110 combines the final output file 322 with a ZIP archive header 

334, a ZIP central directory header 336, and a ZIP end of central directory header 338 to form a ZIP-recognized output file 
332. The ZIP-recognized output file 332 may be recognized by any utility program that supports the ZIP file format. Details 
of the ZIP headers are described below in the section titled "III. FILE FORMATS." 
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III. FILE FORMATS 

FIGURE 2 illustrates an example of an original file list 202 and an example of a sorted file list 204. In this 
example, the original file list 202 of six files is sorted to produce the sorted file list 204 of the same six files in the same or 
a different order. 

5 FIGURE 3 illustrates an embodiment of a unified input data file 302, an embodiment of an intermediary output file 

312, and an embodiment of a final output file 322. FIGURE 3 also illustrates an embodiment of an archive header portion 
304, an embodiment of a file header portion 306, and an embodiment of a ZIP-recognized output file 332. The exemplary 
unified input data file 302 is formed by combining all the files in the sorted file list 304. The exemplary intermediary output 
file 312 includes the compressed result of the unified input data file 302, produced by the first-stage compression process 
1 0 described below. 

The exemplary final output file 322 includes an archive header portion 304 that stores information about the 
archive, a compressed file header portion 324, a final compressed data portion 326, and a recovery information portion 
328. The compressed file header portion 324 includes the compressed result of the file header portion 306. The file header 
portion 306 includes header information about the files in the sorted file list 104, such as the name, location, size and the 

15 date and time of creation or modification of each file, and so forth. The final compressed data portion 326 includes the 
final compressed result of the intermediary output file 312. The recovery information portion 328 includes recovery 
information about the final compressed data portion 326. The recovery information may include the CRC (Cyclical 
Redundancy Check or Cyclical Redundancy Code) of the final compressed data portion 326, and in one embodiment, the 
recovery information portion 328 may be compressed. 

20 While FIGURE 3 illustrates embodiments of a unified input data file 302, an intermediary output file 312, and a 

final output file 322, it is recognized that other embodiments may be used. For example, one embodiment of the final 
output file 322 may not include a recovery information portion 328. 

In one embodiment, a ZIP archive header 334, a ZIP central directory header 336 and a ZIP end of central 
directory header 338 are combined with the final output file 322 to form a ZIP-recognized output file 332. The formats of 

25 the ZIP archive header 334, the ZIP central directory header 336 and the ZIP end of central directory header 338 are 
maintained as open standards by PKWARE, Inc. located in Brown Deer, Wis. (web site www.pkware.com) The ZIP- 
recognized output file 332 conforms to the current ZIP file format and can therefore be recognized by any utility program 
that supports the current ZIP file format. 

IV. MULTIPLE FILE COMPRESSlOW PROCESSES 

30 In one embodiment, the multiple file compression process includes a first-stage compression process and a 

second-stage compression process. 
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A. First-Stage Compression 

1- Prompt For Original File List 

FIGURE 4 illustrates one embodiment of a first-stage compression process. Beginning at start state block 400, 
the first-stage compression process proceeds to block 402 and prompts a user for an original file list 202, which lists the 
0 files to be compressed. 

2. Create Sorted File List 

At block 404, the first-stage compression process converts the original file list 202 into a sorted file list 204 to 
increase the potential of redundancy among neighboring files in the sorted file list 204. In one embodiment, the original file 
list 202 is sorted by file extension. For example, files that share the ".doc" extension (i.e., word processing document files) 

10 are placed together and files that share the ".cpp" extension (i.e., C++ source code files] are placed together. Because 
files with the same extension are likely to share more redundancy than files with different extensions, conversion from the 
original file list 202 into a sorted file list 204 is likely to improve the compression ratio and speed for the first-stage 
compression. In one embodiment, the original file list 202 is sorted by a combination of file extension and file name. The 
sorting by file name may further improve the redundancy among neighboring files, such as, for example if some neighboring 

15 files are back-up versions of the same master file. In another embodiment, the original file list 202 is sorted by a 
combination of file extension and file size. For example, files are first sorted by extension, and files of the same extension 
are then ordered by file size. 

In other embodiments, files with the same file type are placed close together in the sorted file list 204. For 
example, files with the ".doc" extension are placed next to files with the ".txt" extension because they are determined to 

20 have the same "text document" file type. Files with the ".exe" extension are placed next to files with the ".dll" extension 
because they are determined to have the same "binary program" file type. Each file's file type may be determined by using 
its file extension to look for the corresponding file type in a file extension-file type matching table. The file extension-file 
type matching table may be created prior to block 402 to assign a file type for each file extension. 

In other embodiments, files of the same file group are placed close together in the sorted file list 204. File groups 

25 may include, for example, an alphabet-rich file group, a number-rich file group, an image data file group, an audio data file 
group, a video data file group, a high-redundancy file group, a low-redundancy file group, and so forth. Ordering files by file 
types and file groups may improve compression ratio and speed because files with the same file type or file group are likely 
to have more redundancy than other files. File characteristics such as file type and file group may be determined by reading 
the file extension of a file, reading all or part of a file, reading attribute (also called properties) information about a file, and 

30 so forth. Attribute and/or properties information about a file may be included in a header of the file. 

In another embodiment, black and white image files may be placed next to each other in the sorted file list 204 
and color image files may also be placed next to each other in the sorted file list 204. The color scheme of each image file 
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may be determined by reading the color scheme information from the image file header or by reading all or part of an image 
file. 

In additional embodiments, an artificial intelligence program, a heuristic program, and/or a rule-based program 
may be used to determine the file orders in the sorted file list 204. For example, the first-stage compression process may 
5 read a part of each file in the original file list 202 to determine the data characteristics of each file. Files with similar 
redundancy characteristics are placed close together in the sorted file list 204. Data characteristics may include the 
appearance frequency of the "a-Z" alphabet, the appearance frequency of numbers, the appearance frequency of binary 
codes, and so forth. 

In some embodiments, the first-stage compression process automatically carries out the ordering process of block 
10 404. In other embodiments, a user arranges the ordering of files using help information provided by the first-stage 
compression process. The help information may include the file extension, file type, file group and other data 
characteristics of each file. Combinations of automatic ordering and manual ordering may also be used. For example, the 
first-stage compression process may carry out a preliminary ordering of the original file list 202 and may enable the user to 
adjust the preliminary orders to produce the sorted file list 204. 
15 In addition to using the sorted file list 204, other embodiments may also be used to record the order of files of the 

original file list 202. For example, each file of the original file list 202 may be assigned an order number indicating the order 
in which it would be combined at block 408. 
3. Create Headers 

Still referring to FIGURE 4, at block 406, the first-stage compression process creates an archive header portion 
20 304 and a file header portion 306. The archive header portion 304 includes information about the entire archive that is to 
be created. Such information may Include the creation date and time of the archive, the archive's CRC (Cyclical 
Redundancy Check or Cyclical Redundancy Code), a flag indicating whether the archive is locked, a flag indicating whether 
the archive is damage protected and so forth. In one embodiment, archive information in the archive header portion 304 
may be updated after the compressing of block 410. In another embodiment, archive information in the archive header 
25 portion 304 may be updated after the second-stage compression illustrated in FIGURE 5 and discussed in further detail 
below. The file header portion 306 includes file header information for each file in the sorted file list 204. In one 
embodiment, the file header information for a file may include the file name, the location of the file, the dates and times 
that the file was created and/or modified, file size prior to compression, and other attribute information about the file such 
as whether it is read-only. 
30 4. Combine Files 

At block 408 of FIGURE 2, the first-stage compression process appends all but the first file in the sorted file list 
204 successively to the first file in the sorted file list 204. During the appending process, the "End-of-File" (i.e., "EOF") 



wo 01/50612 



PCT/USOl/00424 



marker, if such a marker exists, is removed from each of the files within the sorted file list 204, except the last file in the 
sorted file list 204. The data from all the files in the sorted file list 204 forms the unified input data file 302. It is 
recognized that the first-stage compression process may combine the files using a variety of methods, such as, for 
example, combining subsets of the set of files in parallel and then merging the combined files together. 
5 5. Compress the Combined File 

At block 410 of FIGURE 4, the first-stage compression process applies a compression method to the unified input 
data file 302. A dictionary method, such as the LZSS method, is used in one embodiment, but other compression methods 
including other dictionary methods may also be applied. The dictionary size may be pre-determined prior to the start of the 
first-stage compression process, or dynamically determined after the start of the first-stage compression process. The 

10 dictionary size may exceed a dictionary size unit number of fixed size, such as, for example, one kilobyte, one megabyte, ten 
megabytes, a hundred megabytes, one gigabyte, and so forth. As the dictionary size grows, the compression ratio may 
improve but dictionary search speed may decrease. This is because a string of symbols is more likely to find a match in a 
larger dictionary than in a smaller dictionary, but a large dictionary takes longer to search. 

In one embodiment, the first-stage compression process enables a user to specify a dictionary size for 

15 compression. This option permits a user to choose a dictionary size that is likely to be optimal with respect to the 
redundancy characteristics of the sorted file list 204. In another embodiment, the first-stage compression process 
examines the files of the sorted file list 204 and determines a dictionary size that is likely to be optimal with respect to the 
redundancy characteristics of the sorted file list 204. In yet another embodiment, the first-stage compression process 
provides a user with help information, such as the redundancy characteristics, and assists a user to set the dictionary size. 

20 To determine the redundancy characteristics of the sorted file list 204, the first-stage compression process 

examines information of the sorted file list 204, such as the total size of all files, the size of each file, how many files share 
the same file group, how many files share the same file type, how many files share the same file name, how many files 
have similar file names, the number of different file groups and different file types, and so forth. For example, if several 
files have the same file extension, very similar file names, and very similar file sizes, then these several files may be back- 

25 up versions of the same master file. Therefore, the dictionary size may be set at sufficiently more than the file size of each 
of the several files to take advantage of the high degree of redundancy. 

In one example, the first file is read into the dictionary, (because the dictionary size is large enough to allow the 
entire first file to be read into the dictionary), the rest of the several files may each be encoded as one token with a length 
close to the size of the first file, plus a few other tokens and/or uncompressed symbols. In another example, a large part of 

30 the first file is read into the dictionary. In yet another example, if the file size of every file in the sorted file list 204 is small 
and very few files share the same file group or file type, thereby indicating a low degree of between-file redundancy, then 
the dictionary size may be set at a relatively small size so that the speed of searching the dictionary improves. 

11 



wo 01/50612 



PCT/USOl/00424 



In one embodiment, the dictionary size is Initially set to a default dictionary size. The dictionary size is then 
increased if certain increment-triggering events are encountered during the examination of each file in the sorted file list 
204. These events may include, for example, finding two files of the same file name and extension, finding two files of the 
same file extension, finding two files of the same file type, finding two files of the same file group, and so forth. Each time 
5 one of such increment-triggering events is encountered, the dictionary size is increased. Each of such increment-triggering 
events may be associated with the same or a different increment amount in dictionary size. Increment amount may be 
determined as percentages of the size of some or all of the files in the sorted file list 204, as percentages of the default 
dictionary size, as numbers of bytes, and so forth. 

in another embodiment, the dictionary size is decreased if certain decrement-triggering events are encountered. In 
10 yet another embodiment, both increment-triggering events and decrement-triggering events may be used to adjust the 
dictionary size. The dictionary size may also be increased or decreased in proportion to the total size of files in the sorted 
file list 204 and the average file size. 

The examination of the redundancy characteristics and the determination of the dictionary size may also be made 
at block 404, at the time the first-stage compression process examines the files of the original file list 202 and creates the 
15 sorted file list 204. 

B. Intermediary Output File Is Formed 

After the dictionary size is set and a dictionary method is applied to the unified input data file 302, at block 412 
of FIGURE 4, the first-stage compression process forms the intermediary output file 312. One embodiment of the 
intermediary output file 312 includes two types of data: tokens of position/length pairs and uncompressed symbols. A 

20 token or an uncompressed symbol is accompanied by a one-bit 0/1 flag that indicates whether it is compressed or 
uncompressed. This embodiment of the intermediary output file 312 may be produced using LZSS or another dictionary 
method that produces uncompressed symbols and position/length pairs. After the intermediary output file 312 is produced, 
the first-stage compression process proceeds to an end state at block 414. 
E. Second-Stage Compression 

25 FIGURE 5 illustrates a flowchart of one embodiment of a second-stage compression process. The second-stage 

compression process begins with a start state at block 500 and proceeds to block 502. At block 502, the second-stage 
compression process compresses the file header portion 306 into the compressed file header portion 324. It should be 
understood that the first-stage compression process may also be used to compresses the file header portion 306. File 
header information may include, for example, text identifying the computer on which a file is located, the hard drive on 

30 which a file is located, the directory on which a file is located, and so forth. Because multiple files may be located on the 
same computer, the same hard drive or the same directory, the file header information may include identical sub-strings of 
substantial length. File header information may also include, for example, the date and time of file creation or modification. 
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and the file size. File header information for such data may also include redundant data. A compression method such as the 
Order- 1 Dynamic Markov model may be suitable for compressing the file header portion 306. The Order- 1 Dynamic Markov 
model uses one preceding symbol to predict (i.e., assign the probability of) the appearance of the next symbol, working 
dynamically by adjusting probabilities based on prior symbol pairing patterns in this section. 
5 At block 504, the intermediary output file 312 is separated into multiple intermediary output sections. In one 

embodiment, the intermediary output file 312 is separated into four intermediary output sections: a first section for the 1- 
bit flags, a second section for uncompressed symbols, a third section for position codes, and a fourth section for length 
codes. As described in the paragraphs above, in this embodiment, the intermediary output file 312 includes uncompressed 
symbols and tokens of position/length pairs that are accompanied by a 1-bit flag indicating whether it is compressed. Other 

10 embodiments of multiple sections may also be used. For example, one embodiment separates the intermediary output file 
312 into two sections, one section for uncompressed symbols and one section for the rest of the intermediary output data. 

The second-stage compression process then applies one or more compression methods to the intermediary output 
sections to take advantage of the data characteristics in each section. The compression of the sections may be carried out 
in sequence or in parallel. The following paragraphs suggest some compression methods that may be suitable for each of 

IS the sections, although other compression methods may also be used. In addition, it may also become desirable to not 
compress some sections. 

Still referring to FIGURE 5, at block 506, the second-stage compression process compresses the first section. The 
first section for the 1-bit flags is characterized by codes representing the binary 0/1 values. Because this section stores 
codes of binary values, a compression method such as the dynamic Huffman method or the RLE method may be suitable for 
20 compressing this section. The RLE (Run Length Encoding) method compresses data by replacing a string of identical 
symbols (called a run length) with one token. The token stores the symbol and a number representing the length of the run 
of identical symbols. 

At block 508, the second-stage compression process compresses the second section. The second section for 
uncompressed symbols is characterized by codes representing symbols with no match in the dictionary and are thus 

25 uncompressed. Codes representing the "a-z" letters, the "k-l" letters, and the 0-9 numbers may appear frequently in this 
section. Therefore, a compression method such as a Pseudo-Contextual method may be suitable for compressing this 
section. Using the Pseudo-Contextual method, each symbol is assigned to a group. Groups may include the "a-z" letter 
group, the "A-Z" letter group, and the 0-9 number group. In one embodiment, uncompressed symbols are assigned to up to 
sixteen groups. A symbol is represented by a group flag and a distance code. The group flag indicates the group to which 

30 the symbol is assigned. A distance code indicates the distance between the symbol and the first symbol of the group. For 
example, a symbol "A" assigned to the "A-Z" group has a distance code of 0, a symbol "C" assigned to the same group has 
a distance code of 2. Therefore, a symbol "A" in the "A-Z" group and a symbol "0" in the 0-9 group share a distance code 

13 
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of 0. Symbols "A" and "0" are therefore redundant to some degree. The Pseudo-Contextual method then compresses the 
group flag-distance code pairs. 

At block 510, the second-stage compression process compresses the third section. The third section for position 
codes is characterized by codes representing numbers. These numbers are typically small numbers and are typically less 
5 than an upper range such as one thousand or one million, depending on the dictionary size. Therefore, a compression 
method such as the dynamic Huffman method or the static Huffman method may be suitable for compressing this section. 

In one embodiment, the second-stage compression process separates the position codes into multiple sub-sections 
and compresses the multiple sub-sections. For example, in one embodiment, the second-stage compression process stores 
the first eight bits of each position code in a first sub-section, and stores the rest of the bits of each position code in a 
10 second sub-section. Compared with the original position codes, the data in the first sub-section represent smaller numbers 
and are likely to have smaller variations. Therefore, compressing the position codes as multiple sub-sections may achieve 
better compression ratio than compressing the position codes as one section. It should be understood that the fourth 
section for length codes may also be compressed as multiple sub-sections. 

At block 512, the second-stage compression process compresses the fourth section. The fourth section for length 
15 codes is characterized by codes representing numbers. These numbers are typically small numbers and are typically less 
than an upper range such as one hundred or one thousand depending on the dictionary size and the degree of redundancy. 
Therefore, a compression method such as the dynamic Huffman method or the static Huffman method may be suitable for 
compressing this section. 

Still referring to FIGURE 5, at block 514 the second-stage compression process combines the compressed results 
20 from blocks 506, 508, 510 and 512 to form the final compressed data portion 326. The second-stage compression process 
combines the final compressed data portion 326, the archive header portion 304 and the compressed file header portion 
324 to produce the final output file 322. In one embodiment, after the compressed file header portion 324 and the final 

compressed data portion 326 are produced, they are appended successively to the archive header portion 304. 

In one embodiment, a recovery information portion 328 is appended to the final output file at block 516. The 

25 recovery information portion 328 includes recovery information such as the CRC about the final compressed data portion 
326. In one embodiment the second stage compression process prompts a user to determine whether to protect the final 
output file 322 against damage by appending a recovery information portion 328. In one embodiment, the recovery 
information portion 328 is also compressed. One embodiment of the final output file 322 includes the file header portion 
306 but not the compressed file header portion 324. In one embodiment the second-stage compression process updates the 

30 archive header portion 304. In one embodiment, the second-stage compression process combines the ZIP archive header 
334, the ZIP central directory header 336 and the ZIP end of central directory header 338 with the final output file 322 to 
form the ZlP-recognized output file 332, which may be recognized by any utility program that supports the ZIP file format. 
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A utility program that recognizes the ZIP-recognized output file 332 may typically list information such as file names, sizes 
before compression, sizes after compression and compression ratios of the multiple files in the sorted file list 204, and so 
forth. The second-stage compression process then proceeds to an end state at block 518. 

In another embodiment, the second-stage compression process is omitted; the archive header portion 304, the file 
header portion 306 (or the compressed file header portion 324 in another embodiment) the intermediary output file 312, 
and the recovery information portion 328 are combined to form the final output file 322. 

Additional embodiments of a multiple-file compression system and processes are illustrated in Appendix A. 
Furthermore, Appendix B includes one embodiment of a set programming code that implements an embodiment of a multiple 
file compression system and processes. The disclosed program is written in the programming language C++, though it is 
recognized that in other embodiments, other languages may be used. It is recognized that the specification includes the 
description disclosed in Appendix A and Appendix B. Appendix A and Appendix B form a part of this specification. 

III. conicLUSiow 

Although the foregoing has been a description and illustration of specific embodiments of the invention, various 
modifications and changes can be made thereto by persons skilled in the art, without departing from the scope and spirit of 
the invention as defined by the following claims. One embodiment of the claimed method is implemented in C+ + computer 
programs, although other hardware, software, firmware and combinations may also be used for implementation. 
Accordingly, the breadth and the scope of the present invention should be defined only in accordance with the following 
claims and their equivalents. 
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APPENDIX A 

This appendix forms a part of tibe specification of tlie apptication entitled ''SYSTEMS AND 
METHODS FOR MULTIPLE-FILE DATA COMPRESSION," internal reference number 

REALNET.136A 
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SYSTEM AND METHOD FOR DATA COMPRESSION 



The present inventive was designed as a compression archiver, which gathers files to be 
compressed together and treats them as a contiguous stream of data. Files that are 
compressed are analyzed and sorted accordmg to their extension and then the file name. 




The sorting step is requited and it is one of the most important aspects of the whole 
process, because the present invention takes advantage of between-file similarities and 
the compression ratio is improved whenever the redundancy is encountered in any form. 
Sorting files helps putting sunilar extension files together as they tend to have the same 
type of information within. 
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[CompressJng File Headers using Dynamic Markov Modetel 



BteName, Date, Vxa&» Attribute* UncoOTpressed sfee, file Name (enght. He O^C for FHe 1 
FffeName, Date« Tbne^ Attribute, Unctsinpressed forFae2 
FSeName, Date, Tkne, Attribute, Uncompressed size. Hie Name lenght, Fife CRC for File 3 



FUeNanie, Date, Time, Attribute, UrvctJiwpressed size, fHa Name lenght, Rte CRC for RteN 



I 



My Documents\Sources\SourceFaelXpp 
My Docufnents\Sources\SourceiiIe2J^p 
My Documents\SQurce5\SourC8File3X!pp 
My Oacunients\BInaryfiIes\&cecutabIelJ&te 
My Don]ments\6iiiaryllIes\Executab)e2JDce 
My Docunients\l^narvyitBs\Executaih!^^e 




O 1 2 3 ^ 2S3 D 1 2 3 255 

encoding 'a* encoding 'b* encoding 'c* 

Tree O Tree 97 ('a') Tree 98 C'b*) 

i after 'a' T ) after 'b* 1 " I after 



3i 6d6e> 6i36d 

253 O I 2 3 >^ 255 

encoding *d' encoding "a*- 

Tree 99 (V:*) Tree 100 ( 
I after 'd' T 



»g "a" . 

k 1 



The output stream contains three sections. The first section is the archive header part. It 
contains the whole archive information, Kke creation tune, whole archive CRC, flags for 
determining whether the archive is locked or damage protected or not* The second section 
is the header part, which contains all the headers and all the information required to 
uncompress and bring the files to their initial state, regardless the order they were 
compressed before. Please note that the order of decompressing files is different by the 
one of reading the files, because of the sortmg process. 

The third section is the compressed stream part. There are no flags to describe the 
beginning and the end of files, but only markers for blocks. The stream contains blocks 
aud a block can be seen as a contiguous stream of bytes. 

SECTION I 
Archive Header 

SECTION n 
Header Blocks 

SECTION m 

Marker Block I -> Compressed Block I 
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Marker Blockll -> Compressed Block n 
Marker Block n -> Compressed Block n 

In some cases there is even section IV, which is related to the damage protection and 
contains blocks of information based upon CRCs (cyclic redundancy codes) performed 
on the compressed stream blocks. 

SECTION IV 

Marker Block I -> Information Recovery Block I 
Marker Block n -> Information Recovery Blockll 
Marker Block n -> Information Recovery Blockll 

After the files are analj^ed there are three major steps in the present inventive program. 

The First step is file headers compression. There is only one block of information that * 
contains the file headers and this block is compressed using Method II, described below. 
Outside the first section of XZIP archive, which is the actual header, there is nothing 
which remains uncompressed. The file headers and the compressed blocks contain 
compressed data or are compressed themselves. 

The second step is the actual compression step, which imphes a slightly modified LZ77 
(called LZSS). The files previously sorted are read a dynamically allocated table (which 
can have different sizes ranging firom 64K to 8192K) is filled with the bytes read firom the 
files. 



- [Reading file chunks as a contigous stream] - 



buffer [64 - 8192K table] - 



-4| buffer [64 - 8192K table] 



look ahead buffer 



, JBXT TO COMPRESS [INPUT TEXT].........^....^ 

ExecutablelBce ExeaitableZ^xe BsetaJtableSBte 8DurceFifel^ppSourcenle2XppSour... 



[ sRdofig window ;> requires double sized tab!e] 



1 



makes comparisons easfer 



5 byte HASH 

indexed 
values 



© 



K ■■ — 

collision chains [int indexed] 

[ matches detected and substr&rigs found ] 



1^ 



From the beginning of the table, which acts as a sliding window, meaning that always 
matches and sub-strings will be searched within the table size, even if the table pointer 
advances, because the table is doubled in size. Five bytes are hashed in two interlaced 
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four-byte keys, and then the result is compared to a 1024K table entry. If the table entry 
is not empty, then for every location that is chained in that entry sub-strings are searched 
and the biggest one is selected. However, a heuristic method is applied (Longest Frame 
First), and the sub-string is not selected if there is another one longer stating jfrom the 
next character- When the sub-string with the longest length is selected, then the whole 
output will be made up of a pair of position and length. 

The whole output of tihis algorithm will contain basically uncompressed characters and 
position/length pairs, and 0/1 bits to determine which is which. The positions rely in the 
range of the table size from 64K to 8192K, which is from 16 bit to a 23 bit-number. This 
will be split in two different numbers, arid they will fit in two different blocks. The 
former will contain the first 8 bits, and the latter will contam the rest, an 8 to 15 bit 
number. 

The uncompressed characters will fit in a different block, and will not occupy the same 
block as the length bytes. This will made a total of 5 output blocks, if we number the bit 
block. 



Sbit-position buffer 
modulo 8 bit-tnlinlte* lenght buffer 
8'bit uncompressed characters Jiuffer 
8-bit packed LZ compression bits buffer 
12-15 bit packed position rest buffer 

Block 1- Bit block 

Block 2 - Literal block (imcompressed bytes) 

Block 3 - Length block (the sub-string length, can be imlimited and it's inserted modulo 
255) 

Block 4 — Distance block (the position of the sub-string which is kept as a distance from 
the reading pointer) 

Block 5 - Rest block (the 8-15 bit number as a rest from the position number) 

The third and the last step is the block compression which implies the Dynamip Hufi&nan 
compression in three (Afferent ways. Two context techniques are applied, the Dynamic 
Markov Model (1 -byte context) 



LZ output buffer 1 



L2 output buffer 2 
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aad The Pseudo-Contextual Model (1 flag, Ibyte context). 



This with the simple Dynamic Huffeian which can be called a 0-byte context make three 
different compression method that are applied on the LZ output blocks. 




C Ibyte context - 256 clynairiically norgamana trees, when usbig Method II, Dynamh Markov Modefe jj 




21 



wo 01/50612 



PCT/USOl/00424 



Please note that only one Method, Method I, II or m is appKed on a buffer, but only 
Method n is applied on the file headers block, because of the 1-byte context techniqiie. 

The attached source illustrates one program in a series of separate files for implementing 
flie present inventive system and method for data compression. The disclosed program is 
written in C-H-, although the present invention can be ioiplemented in other languages as 
would be known to one of skill in the art. 
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APPENDIX B 

This appendix forms a part of the specification of the application entitled <='SYSTEMSAND 
METHODS FOR MULTIPLE-FILE DATA COMPRESSION," internal reference number 

REALNET.136A 
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*********** 
* 

* 

* This is the user interface - console printing procedures 

* 

* 

* 

* From Xtreme 106 (DI^L) package by Sabin, Belu (c) 1999 . 
* 

* 

* 

^ ************ ****************************************^^^^^^^^^^^^^^ 
***********^ 

#pragtna pack (1) 

#include <stdio.h> 
#include <conio . h> 
#include < windows . h::i 

#include "console .h" 
#inc lude " export s . h " 

short ratio; 

extern XTREME106_CMDSTRUCTURE MyXtrStructure; 

void Printf (char *Text, char *delimiter, int atribute) 

if (MyXtrStructure . MinorStatusMessageDisplayFunction I = NULL) 

MyXtrStructure . MinorStatusMessage£)isplayFunct ion (Text , delimit 
er, atribute) ; 

} 

void Print (char *Tgxtl, char *delimiterl, int atributel, .char- *Text 
2, char *deliTniter2, int atribute2, 

char *Text3,.char *delimit6r3, int atributeS, char *Text 
4, char *delimiter4, int atribute4, 
^ int procent) 

if (MyXtrStructure. MajorStatusMessageDisplayFvmction != NULL) 

MyXtrStructure .Ma jorStatusMessageDisplayFunction (Textl, deli 
raiterl, atributel. 
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Console 

Text2, delimiter2, atribute2. Texts, delimiters, atributeS 
> Text4, delimiter4, atribute4, procent) ; 

} ' ^ 

int ScanForAchar(char *mess, int but_no) // a callback PileRename 
function must be implemented I 

if (MyXtrStructure..Utility_Function 1= 

return (MyXtrStructure.ytility^Punction (mess, but no) ) ; 

else 

^ return «N'; // no as answer 
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(jonsoxe 



int ScanForAchar (char *niess, int but_jao) ; 

void Printf{char *Text, char *deliTniter^ int atribute) 

void Print (char *Textl, char *deliTniterl, int atributel, char *Text 

2, char *delimiter2 , int atribute2, 

char *Text3, char *delimiter3v int atributeS, char *Text 
4, char *delimiter4, int atribute4, int percent); 
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Contextual Encoding l 
The best in literals encoding / decoding 

* 

From Xtreme 106 (DLL) package by Sabin, Belu 



#pragma "pack " (1) 

#include <string.h> 
# inc lude < s t dl ib . h> 
#include <conio.h> 
#include <assert.h.> 
#include <stdio.h> 
#include <io.h> 



#include "Util.h" 
#include " Contextual . h" 
#define MAX_READ 10240 
#def ine MAX_MODELS 12 

struct contextModel XXXContextualModel [MAX^MODELS] ; 
unsigned int Interval_Low; 
unsigned int Interval^Len; 
unsigned int shifts, valued- 
unsigned short buffer « 0, mask =128; 

//FILE *infile; 
//FILE *outfile; 

// extern unsigned -int XXXInBufC; 
//unsigned int XXXOutBufC; 
//unsigned char XXXInBuf [MAX^READ] ; 
//unsigned char XXXOutBuf [MAX_READ * 2] ; 

struct Fill_In_Data Fill [ MAX_MODELS + 2 ] =r 

{ 1' 0. 0, 16, 12}, { 1, 1, 0, 2, 

4}. 
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{ 0/ 


0, 


.2,. 


4, 


4}, 


{ 0, 


0, 


4, 


8, 


o / / 


{ 0, 


0, 


8, 


32, 


4}, 


{ 0, 


0, 


16, 


32, 


3}, 


{ 0, 


0, 


48, 


32, 


3}, 


{ 0, 


0, 


64, 


32, 


2), 


{ 0/ 


0, 


96, 


32, 


3}, 


{ 0, 


0, 


128, 


32, 


2}, 


{ 0, 


0, 


160, . 


32, 


2}, 


{ 0, 


. 0, 


192, 


32, 


0} 


{ 0, 


0, 


224, 


0, 


0}, 


{ 1, 


255, 


0, 


0, 



//unsigned iht teictsize, prlntcount/' outcount, codesize/ 
#define MINIM(a,b) ( Ca<b) ? a : b) 

inline int retrieveContextualEncodedCode (struct conte:3ctModel *XXX) 
{ 

register unsigned int TotalF; 

register unsigned int CummulatedLow, Low, CummulatedHigh, Range; 

register unsigned int ValuePerUnit, END; 

register short symbol =0; 

register unsigned short i; 

register unsigned short X = XXX->Step; 

CummulatedLow = CummulatedHigh = 0; 

TotalF *XXX->TotalFrequencY; 

ValuePerUnit = Interval_Len / TotalF; 

END MINIM (TotalF - 1, value / ValuePerUnit) ; 

while (CummulatedHigh <- END) 
{ 

symbol+-i-; 

CummulatedHigh XXX- >Freq [symbol] ; 



Range = XXX- >Freq [symbol] ; 

CummulatedLow = CummulatedHigh - Range; 
Low ValuePerUnit * CummulatedLow; 

value Low; 

Interval_^Len = (CummulatedHigh < TotalF)- ? ValuePerUnit * Range 
Interval_Len - Low; 

while (Int erval__Len <= HALF) 
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Contextual 



{ 

Interval^Len <<= l; 
if { (mask >>= 1) == o) 
{ 

buffer = . XXXInBuf [XXXInBuf C++] ; 
mask 5= 128; 

} 

value = (value « 1) + ((buffer & mask) !=i 0); 

} 

XXX- >Freq [symbol] += X; 

XXX->TotalPrequency += X; 

if (XXX->TotalFrec[uency > XXX^>iy[aximumFreq) 

XXX->TotalFrequency =0; 

for(i=l; i <« XXX->SymbolsNo; i++) 

{ 

XXX->Freqti] = (XXX->Freq [i] + X) » 1; 

XXX->TotalFrequency += XXX->Freq[i] ; v 

} 



return (symbol) ; 



void storeContextualEncodedCdde (struct con text Model *contextModel, 
unsigned int symbol) 

register unsigned int i; 

register unsigned short X = contextMpdel->Step; 
register unsigned int TotalF; 

register unsigned int CummulatedLow, CummulatedHigli, Range, Low; 
register xinsigned int ValuePerUnit ; 

CummulatedLow =0; 

TotalF = contextModel->TotalFrequency; 

Range = contextModel->Freq [symbol] ; 

ValuePerUnit = Interval_Len / TotalF; 

for(i=l; i<symbol; i++) CummulatedLow = CummulatedLow + con 

textModel->Freq [i] ; 

CummulatedHigh = CummulatedLow + contextModel->Freq [symbol] ; 
Low = ValuePerUnit * CummulatedLow; 
Interval^Ldw += Low; 

Interval_Len = (CummulatedHigli < TotalF) ? ValuePerUnit * Range 
I Inte3rsral Len - Low; 
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// Renormalize 
// 

^ HALF ™ 

ULL ^ 

, . , : 

// Output bit 0 output bit 1 

// c :] 

// /\ /\ 

// / \ / \ 

// an Interval+CummulatedLow / \ 

/ / and an Interval Len ' " 

// 

/ / Acest if imi lua aprope o secunda 111!! 
// if {Interval__Len ==0) 

// printf("\n\n Alarm, remormalizat ion will fail 1 \n"); 

while (Interval_Len <= HALF) // everytime we are sending BITS - 2 b 

Its out 

{ 

if (Interval_Low + Interval_Len <= PULL) 
if { (mask >>= l) == o) 

XXXOutBuf [XXXOutBuf C++] = (unsigned Gbar) buf f er; 
buffer = 0; mask = 128; 
} 

for ( ; sbifts > 0; shifts--) 

buffer f= mask; 
if ( (mask »= 1) » o) 
{ 

XXXOutBuf [XXXOutBuf C++] = (unsigned char) buffers- 
buffer = 0; mask = 128; 
} 

) ^ 

else 

if (FULL <= Interval Low) 
{ 

buffer 1= mask; 
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if ((mask >>« i) == o) 
{ 

XXXOutBuf [XXXOutBuf = (unsigned char) buffer; 
buffer =0; mask = 128; 

} 

for ( ; shifts > 0; shifts--) 

{ 

if ( (mask >>= l) O) 

{ 

XXXOutBuf [XXXOutBuf C++] = (iinsigned char) buffer ; 
buffer = 0; mask =128;" 

} 

.).. 

Interval_Low -= FULL; // this is egu with -= FULL (remov 
ing the highest bit, 1) 

} 

else 

{ 

shif ts++; 

Interval_Low HALF; // this is equ with -= N2 (removing th 
e highest bit, 1) 

} 

Interval_Low <<= 1; 

Interval_Len <<= 1; // we are increasing the interval till 

it will go above HALF 

} . . 

contextModel->Freq [symbol 1 += X; 
contextModel->TotalFrequency += X; . . 

if (contextModel->TotalFrequency > .contextModel->MaxiTnumFreq) 

contextModel->TotalFrequency =0; 
for(i=l; i <= contextModel->SymbolsNo; i++) 
{ 

contextModel->Freq[i] = (contextModel->Freq [i] +1) » 1; 
contextModel->TotalFrequency += contextModel->Freq[il ; 

} 



} 

int getlndex(int n) 

{ 
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int val; 










if (n >= 


255) 


val 


= 


14; 


else 










if (n >= 


,224) 


val 


=: 


13; 


else 










if (n >= 


192) 


val 


= 


12; 


else 










if (n >= 


160) 


val 


— 


11; 


else 










if (n >= 


128) 


val 


= 


10; 


else 










if (n >= 


96) 


val 




^; 


else 










if (n >= 


64) 


val 


= 


8; 


else 










if (n >= 


48) 


val 




7; 


else 










if (n >= 


16) 


val 




6; 


else 










if {n >= 


8) 


val 


= 


5; 


else 










if (n >= 


4) 


val 




4; 


else 










if (n 


2) 


val 




3; 


else 










if (n >= 


1) 


val 




2; 


else 




val 




1; 


return val; 









} 



void ContextualEncodeBuffer (unsigned int read, unsigned char *Inbuf 
, unsigned char *Outbuf , unsigned int *out) 

tinsigned int i; 
unsigned int j ; 

for(i=0; i < MAX JMODELS ; i++) 

for(j=l; j <= Fill [i] .syrabolsNuraber; j++) XXXContextualModel [ i 
].Freq[j] = Fill [i] . step; 

XXXContextualModel [ i ] .TotalFrequency = Fill [i]. step * Fill [i] 
• symbol sNumber ; 
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XXXContextualModel [ i ] .FreqEO] 
■] .FreqCFill [i] .symbolsisrumber +1] = 0; 
XXXContextualModel [ i ] . SymbolsNo 
XXXContextualModel [ i ] . Step 
XXXContextualModel [ i ] .MaximumFreq 



mask « 128; 
value = 0; 
buffer = 0; 
Interval_Low =0; 
Interval_Len DOI_LA(BITS-l) ; . 

XXXOutBufC = 0; 
for (1=50; i< read; i++) 

{ 

int flag = getlndex{ Inbuf [i] ) - 1; 
storeContextualEncodedCode {&XXXContextualModel [0] , flag + 1); 
if (Fill [ flag ] .flag == 0) 

storeContextualEncodedCode ( axxxContextualModel £ f la 
g - 1 ], Inbuf [i] - Fill [ flag ] .thresholdValue + 1) ; 

} 

for (1=1; i<= BITS; i++) 

{ 

register sliort b; 

register sliprt bit ^ ( ( Interval_Low >> (BITS-i)) & 0x1);- 

if (bit) buffer j= mask; 
if ( (mask >>= 1) =- o) 
{ 

XXXOutBuf [XXXOutBuf C++] =: (unsigned char) buffer; 
buffer « 0; mask = 128; 
} 

for { ; shifts > 0; shifts--) 
{ 

b = !bit; 

if (b) buffer [= mask; 
if ( (mask >>= 1) == 0) 
{ 

XXXOutBuf [XXXOutBuf C++] = (unsigned char) buffer; 
buffer =0; mask 128; 

} 

} 



XXXContextualModel [ i 

Fill [i] . symbol sNumber ; 
= Fill [i] .step; 
= 1000; 
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} 

if (mask != 128) XXXOutBuf [XXXOutBuf C++3 = (unsigned char) buffer; 

memcpy(Outbuf , XXXOutBuf, XXXOutBuf C) ; 
*out = XXXOutBuf C; 

} 

void ContextualDecodeBuffer (unsigned int read, unsigned char *I 
nbuf, 

^ unsigned char *Outbuf , unsigned int *OutNo) 

_ unsigned int x =_read; 

unsigned int i; 
unsigned int j ; 

for{i=0; i < MAX MODELS; i++) 
{ 

for(j=l; j <=r Fill [i] .symbolsNumber; j+H XXXContextualModel [ 
i ] .Freq[j] = Fill [i] . step; 

. . XXXContextualModel [ i ] .TotalFrequency = Fill [i] . step * Fill [i] 
• . symbolsNumber ; 

- XXXContextualModel [ i ].Freq[0] = XXXContextualModel [ i 
. .Freq [Fill [i] .symbolsNumber +1] =0; 

XXXContextualModel [ i ],SymbolsNo = Fill [i] . symbolsNumber ; 

XXXContextualModel [ i ].step Fill [i] . step; 

^ XXXContextualModel [ i ] .MaximumFreq = 1000; 

Interval^Low = 0 ; 
Interval_Len - DOI_LA(BITS-l) ; 

/XXXInBufC = XXXOutBuf C = 0; 

memcpy (XXXInBuf , Inbuf , *OutNo ) ; 

mask = 128; 
value = 0; 

buffer = XXXInBuf [XXXInBuf C++] ; 

for(i=l; i < BITS; i++) 
{ 

if {{mask >>= i) o) 

{ 



34 



wo 01/50612 



Contextual 



PCT/USOl/00424 



buffer = XXXInBuf [XXXInBuf C++] ; 
mask = 128; 

^ value = (value « 1) + ({buffer & mask) != o) ; 

while (x — ) 
{ 

0]) -^1^ ^-'^^^ " ^^^^^i®^eContextualEncodedCode(&XXXContextualModel[ 
retVaSiT^""^ ^'^"''''^''^'''■^^ ^ ^ ^^^^ ^ '"^^ ' ^^^^ f ^^^9 3 - 

ntextualModelC flag - x 3) + ..iTfTllTul^:^^^ 

■ memcpy { Ou tbuf , XXXOu t Buf , XXXOut Buf C ) • 
*OutNo = XXXOutBufC; 

} 
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This is the crc - utility draw used 



Prom Xtreme 106 (DLL) package by Sabin, Belu (c) 1999 



* 

* 

* 

* 

* 
* 

* 
* 

#pragma pack (1) 

#include <stdlib.h> 
#include "crc.h" 

void updcrc (unsigned char *s, unsigned int n, unsigned int *whatcrc 
) ^//pointer to bytes to pump through, number of bytes in s [] */ 

register unsigned int c; /* temporary variable */ 

c - *whatcrc; 
while (n--) 

{ 

c = crc_32_tabC{{int)c * (*s++) ) & Oxff] * (c » 8) ; 

}; 

^ *whatcrc = (lonsigned int) (c INIT_CRC_VAIjUE) ; 

void local_short_crc (unsigned char *s, unsigned int n, unsigned sho 
rt *whatcrc) //pointer to bytes to pump through, number of bytes in 
s[] */ 

{ 

unsigned int O; 

O = INIT_CRC_VALUE; 

updcrc (s, n, &0) / //pointer to bytes to pump through, number of 
bytes in s[] */ • = 

^ *whatcrc = (unsigned short) O; 

void local_uint_crc (unsigned char *s, unsigned int n, unsigned int 
*whatcrc) //pointer to bytes to pump through, number of bytes in s[ 
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] */ 

'{ 

unsigned int Or 

O = INIT_CRC_VALUB; 

updcrc(s, n, ScO) } //pointer to bytes to pump through, nuinber of 
bytes in s[] */ 

*whatcrc = (unsigned int)0; 

} 



unsigned int c 
{ 

OxOOOOOOOOL, 
0x706af48fL, 
0xe0d5e91eL, 
OxSObf ld91L, 
0xladad47dL, 
0x646ba8c0L, 
OxfaOf 3d63L, 
0xa2677172Ii, 
0x3 5b5a8fali, 
0x45df5c75L, 
0xc8d75180L, 
DxbBbdaBOfL, 

;t)x2f 6f7c87Ii, 
pxoidb7106L, 
0x9fbfe4a5Ii, 
0xel0e9818L, 
0x6b6b51f4L, 
0xlb01a57bL, 
0x8bbeb8eaL, 
0xfbd44c65L, 
0x4adfa541L, 
0x346ed9fcL, 
0xaa0a4c5fL, 
0xc90c2p86L, 
OxSedef 90eli, 
0x2eb40d81L|. 
Ox03b6e20cL, 
0x73dcl683L, 
0xe40ecf ObL, 

' Ox8708a3d2L, 
0xl9Sc3671L, 
Ox67dd4accL, 
0xd6dGa3e8L, 
0xa6bc5767L, 



:c_32_tab[] = 

0X77073096L, 

0xe963a535L, 

0x97d2d988l2/ 

0xldb71064L, 

0x6ddde4ebL, 

0xfd62f97aL, 

0x3d080df 5Ii, 

0x3c03e4dlL, 

0x42b2986clj, 

0xdcd60dcfL, 

Oxbf d06116L, 

0x2 8 02b8 9eL, 

0x58684cllL, 

0x98d220bcL, 

0xe8b8d433L, 

0x7f 6a0dbbL, 

0xlc6c6162L, 

0x8208f 4clL, 

0xfcb9887cL, 

0x4db26158L, 

0x3dd895d7L, 

0xad678846L, 

0xdd0d7cc9L, 

0x5768b525L, 

0x29d9c998L, 

0xb7bd5c3bL, 

0x74bld29ali, 

0xe3630bl2L, 

0x9309ff9dli, 

0xle01f268L, 

Ox6e6bOSe7Ii, 

Oxf 9b9df 6fL, 

0xaldl93 7eL, 

0x3.fb506ddL, 



0xee0e612cL 
0x9e6495a3L 
0x09b64c2bli 
0xGabO20f2L 
0xf4d4b551L 
0x8a65c9ecli 
0x3b6e20c8L 
Ox4b04d447L 
Oxdbbbc9d6Ii 
0xabdl3d59I. 
0x21b4f 4b5Ii 
0x5f 058808Ii 
0xcl611dabL 
0xefd5102aL 
0x7807c9a2I, 
0x08 6d3d2dL 
0x856530d8Ii 
OxfSOf C457L 
0x62ddlddfli 
0x3ab551ceL 
0xa4dlc46dL 
0xda60b8d0L 
0X5005713CL 
0x206f 85b3L 
0xb0d09822L 
0xc0ba6cadL, 
0xead54739r, 
0x94643b84L 
0x0a00ae27L, 
0x6906c2feL, 
0xfed41b76L^ 
OxSebeeff 9L, 
0x3Sd8c2c4L, 
0x48b23 64bL, 



0x990951bal,, 
0x0edb8832Ii,, 
0x7.ebl7cbdlj, 
0xf3b97148L, 
0x83d385c7L, 
0xl4015c4fL, 
Ox4c69105eL, 
Oxd2 0d85fdL, 
Oxacbcf 940L, 
0x26d930acL/ 
Ox56b3c423L, 
0xc60cd9b2L, 
0xb6662d3dL, 
0x71bl8589L, 
OxOf OOf 934Ii, 
0x91646c97L, 
Oxf 2 62 0 04eL, 
0x65b0d9c6L, 
0xl5da2d49L, 
0xa3bc0074L, 
0xd3d6f4fbL, 
0x44042d73L, 
Ox270241aaL, 
0xb966d409L, 
0xc7d7a8b4L, 
0xedb88320L, 
0x9dd277afL, 
OxOd6d6a3eL, 
0x7d079eblL, 
0xf762575dL, 
0x89d32be0L, 
0xl7b7be43L, 
0x4fdff252L, 
0xd80d2bdaL/ 



0x076dc419L, 

px79dcb8a4L,^ 

0xe7b82d07L, 

0x84be41deL, 

0xl36c9856L, 

0x63 066cd9L, 

Oxd56Q41e4L, 

Oxa50ab56bL, 

0x32d86ce3L, 

0x51de003aL, 

0xcfba9599L, 

0xbl0be924L, 

0x76dc4190L, 

0x06b6b51fL, 

0x9609a88eL, 

0xe6635c01L, 

0x6c0695edL, 

0xl2b7e950L, 

0x8cd37cf3L, 

0xd4bb30e2L, 

0x4369e96aL, 

0x33031de5L, 

OxbeOblOlOL, 

0xce6le49fL, 

0x59b33dl7L, 

0x9abfb3b6L, 

0x04db2615L, 

0x7a6a5aa8L, 

Oxf OOf 9344L, 

0x806567cbL, 

OxlOda7a5aL, 

0x60b08ed5L, 

0xdlbb67flL, 

Oxaf Oalb4cL, 
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0x36034af6L, 
0x4669be79L, 
0xcc0c7795L, 
0xb2bd0b28L, 
0x2cd99e8bl,, 
0x026d930ali, 
0x95bf4a82L/ 
OxeBdSbeOdL, 
0x68ddb3f 8L, 
0xl8b74777L, 
0x8f659effL, 
0xd70dd2eeL,. 
0x4969474dL, 
0x37d83bf OL, 
Oxbdbdf 21cL^ 
0xcdd70693L, 
0x5d681b02L, 
0x2d02efBdL* 



0x41047a60L, 
0xcb61b3 8cL, 
0xbb0b4703L, 
Ox2bb45a92L, 
OxBbdeaeldL, 
0x9c0906a9Ii, 
0xe2b87al4L, 
0x7cdcefb7L., 
Oxlf da836eL, 
0x88085ae6L, 
Oxf 862ae69L, 
0x4e048354L, 
Ox3e^e77dbL, 
0xa9bcae53L, 
0xcabac28aL, 
0x54de5729L, 
0x2a6f 2b94L, 



Oxdf 60efc3L, 

0xbc66831aL, 

0x22 0216bSL, 

0x5cb3 6a04L, 

Ox9b64c2bOL, 

0xeb0e3 63fL, 

0x7bbl2baeL, 

0x0bdbdf21Ij,- 

0x81bel6cdL, 

Oxf f Of 6a70L, 

0x616bffd3L, 

0x3903b3.c2L, 

0xaedl6a4aL, 

0xdebb9ec5Ii^ 

0x5 3 b3 9 3*3 Oil, 

0x23d967bfL, 

0xb40bbe37L, 



0xa867df55L, 
0x256fd2a0L, 
0x5505262fL, 
0xc2d7ffa7L, 
0xec63f226L, 
0X72076785L, 
0x0cb61b3 8L, 
0x86d3d2d4L, 
0xf6b9265bL, 
0x65063bcaL, 
0xl66ccf45L, 
0xa767266,lL, 
0xd9d65adcL, 
0x47b2cf 7fL,_ 
6x24b4a3a5L/ 
0xb3 667a2eL, 
0xc3 0c8ealL, 



0x316e8eefL, 
0x5268e236L, 
0xc5ba3bbeL, 
0xb5d0cf31L, 
0x756aa39cL, 
0X05005713L, 
0x92d28e9bL, 
Oxf ld4e242L, 
0x6fb077elL, 
OxllOlObScIi, 
0xa00ae278L, 
0xd06016f 7L, 
0x40df 0b66L, 
0x3 pb5ffe9L, 
Oxbad03605L, 
0xc4614ab8L, 
0x5a05df IbL, 
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LZ 32, the powerful Xtreme 106 engine's engine rooml 
From Xtreme 106 (DLL) package by Sabin, Belu (c) 1999 



k 

* 

k 
k 

* 
* 

* 

*******kk*kkjkk^ 
kkk'kkkkkkk*/" 

#pragma pack (1) 

#include <stdio , h> 
#include <stdio . li> 
#include <string . h> 

#include "crc .h" 

#include "util .h" 

#include " sol id . h " 

#include " trees. h" 

#include "def late. h" 

#include "console^h" 

extern char Tablelndex, Solida; 
extern unsigned int SolidK, SolidN; 
extern short ratio; 

#define max_insert_length max_lazy_match 

#define P_S *++scanningj)ointer === *++matching_pointer 

#define UPDATE_HASH(h, c) {h = ( ( (h) «H_SHIFT) " (c) ) & HASH MASK) 

#define HASH_IT{x) ( { (x " (x » 11) ) ) & HASH_MASK) ' ~ 

#define HASHS(ul, u2) ( ( {ul ^ {u2 » 11))) & HASH_MASK) 

#define PrintProgress {short ratio; \ 

if (cotint_start > af is_start) { \ 
afis_start += 0x16000 ;\ - 
if (Solida) {\ 

if((SolidK 1= SolidN) 1| (SolidN == 1) ) ( 
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ratio = IntoarceProcent (coiint^start, (s 
olida ? TotalSolidSize : TotalRead) ) ;\ 

sprintf (tmp, "%«60s", short str(InPile, 

60)) A 

sprintf (tmp2, " %3d,%d%c", ratio / 10, 

ratio % 10, ' ) ;\ 

Print (Repack ? »^ Repacking " : (ZipCloa 
king ? " Zipping « : " Freezing ") , ZipCloaking ? 14 : 3, tmp, 

2, tmp2, 3, "\r", 0, (ratio / 10))/. } }\ 

else {\ 

ratio = IntoarceProcent (conn t_s tart, (S 
olida ? TotalSolidSize : TotalRead) ); \ 

sprintf ttmp, "%-60s", short str(TnFile, 

60));\ 

sprintf (tmp2, V3d/%d%c", ratio / 10, 

ratio % 10, ) ;\ 

Print (Repack ? " Repacking " : (ZipCloa 
king ? " Zipping " : " Freezing ") , ZipCloaking ? 14 : 3, tmp, 

2, tmp2, 3, "\r", 0, (ratio/ 10));} } } 



void window__fill in() 

{ . " " 

register unsigned int i, j; 
unsigned int some_extra, val; 

some_extra = (unsigned int) (window_size - (unsigned int)in_advan 
ce_reading - (unsigned int) string_starting) ; 

if (sdme^extra (unsigned) EOF) some_extra- - ; 
else . ^ 

if (string starting >= WSIZE+MAX DIST) 
{ , " . 

memcpy((char *)Fereastra, (char *) Pereastra+WSIZE, (unsigne 
d int) WSIZE) ; 

Solid_CRC INIT_CRC_VALUB7 

updcrc { (unsigned char *)Fereastra, (unsigned int)WSIZE, &So 
lid_CRC) ; * 

match_start WSIZE; 
string_starting WSIZE; 
for (i=0;i<HASH SIZE;i++) 
{ 

j=head[i] .Li; j |=:head[i] ,Hc « 16; 

val = ((unsigned int ) (j >= WSIZE ? j-WSIZE : 0)); 
head ti] -Li (unsigned short) (val) ; 
head [i] .He = (unsigned char) (val»16) ; 

} 

for (i=0;i<WSIZE;i++) 
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j=prev[i] .Li; j |=prev[i] .He « 16; 
. val = ((unsigned int ) (j >= WSIZE ? j-WSIZE- : 0)); 
prev[i3 .Li = (iinsigned short) (val) ; 
prev[i] .He = (tmsigned char) (val»16) ; 

} . ■ 

some_extra += WSIZE; 

} 

if (lEndOfFile) 
{ 

i = read_froin_f ile ( (unsigned char*) Fereastra+string_starting 
+in_advance_reading, some_extra) ; 

if (i 0 II i (unsigned int )EOF) EndOfFile = 1; 
in_advance_reading += i ; 

• 7 ■• ■• 
} 



int deflate () 

{ n ": • 

unsigned int hash__head ; 
chain 

unsigned int Ul, U2, val; 

unsigned int previous matching pointer; 
/ / previous . inatching__pointer * - 

int match_available =0; 
ous Tnatching_jpointer exists 

register unsigned match_length = MIN_MATCH-1; 
St Tnatching_pointer 

Tinsigned long K = 0; 

ratio = 0; 
Tree_Start () ; 
Print_Start () ; 

while {in_advance_reading 1= 0) 

{ 

PrintProgress 

Ul = * (unsigned int *) (Fereastra + string^starting) ; 
U2 * (unsigned int *) (Fereastra + string_starting + 1) ; 
hash_header = HASHS(U1, U2) ; 
hash_head =head [hash_header] .Li; ' 
hash_head I =head [hash_header] .He << 16; 
val = ( (string_starting) & WMASK);; 
prev[val] .Li = (unsigned short) (hash^head) ; 



//head of hash 

// set if previ 
// length of be 
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prev[val] .He = (mxsigned char) (hash_head>>l6) / 

head [hash_header] .Li - ("unsigned short) (string^starting) ; 

head[hash_headerl .He = (iinsigned char) (string_starting»i6) 

P^®"v_length = match_length, previous_matching_jpointer = mat 
ch_start ; 

match_length = MINJVIATCH-l; 

if (hash_head i= 0 prev_length < max_lazy_match strin 
g_starting - hash_head <= MAX DIST) 
{ 

/ /match_length tell_the_longest_match (hashjiead) ; 
register int len; 

register int . ^ best_len = prev_length; 

unsigned int cur^jnatch = hash_head; 

unsigned short chain_length = max_chain_length 

; // max hash chain length 

register unsigned char *scanning_pointer = Fereastra 
+ string_starting; // current string X. 

register unsigned char *matching_pointer; 
// matched string 

unsigned int limit = string_starting 

> (unsigned int )MAX_DIST ? string_starting - (unsigned int )MAX DI 
ST : 0; // nil =0 

register unsigned char *s trend = Fereastra + stri 

ng_starting + MAX^matcH; 

register xinsigned char scan_end = scanning_pointer 

[best_len] ; 

register unsigned char scan_endl = scanningjpointer 
[best_len-l] ; , 
unsigned int val; 
char condl, cond2; 

if (prey_length good_match) chain_length >>= 2; 

for ( ; ; ) 
{ 

matching_pointer = Fereastra + cur_match; 

// This is a method of getting rid quickly of match 
es that are alledgedly bigger 

/ / than the current one i 

//We can really get rid veiry quickly of a matching 
^pointer by checking it's boxindary, only i 
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if {best_len >== 5) 

{ 

if (Tnatching_pointer [best_len] != scan__end || 
matciiiiig_pointer [best_leii-l] !=: scan_endl) goto 

Check; 

} 

if {* (unsigned int *) (matching^pointer) != * (unsigne 
d int *) {scanning_pointer) ) goto Check; 

if (* {Tnatching_pointer+4) 1= * (scanning_pointer+4) ) 
goto Check; 

scanning__pointer+=4 ; * 
_ Tnatching^pointer+=4 ; 

do {} while {P_S P_S && P_S && P_S && P_S && P_S & 
Sc P_S ScSc P_S && scanning_pointer < strend) ; 

- len = MAX_MATCH - (int ) (strend - scanning_pointer) 

f 

scanning_pointer = strend - MAX^MATCH; 
if (len > best__len) 

{ 

matches tart = cur_jnatch; 
best_len = len; 
if (len >= nice_inatch) break; 
scan_endl = scanning pointer [best len-l] ; 
. scan_end - scanning_pointer [best_len] ; 

} 

Check : val = curjctiatch & WMASK; 
cur_match = prev[val] .Li; 
cur_match [= prev[val] .He << 16; 
condl = cur_match > limit; 

cond2 = (condl ? --chain_length 1=0 : 0) ; 
if (condl ==0 li cond2 == 0) break; 

} 

// return best^len; 
match_length - best_len; 

if (match__length > in_advance_reading) match^length = 
in_^advance_reading ; 

if (match_length == MIN_J>1ATCH && string_starting-matc 
h_start > TOO_piSTANT) match_length-- ; 

} 

if .•(prev_length >= MINJVIATCH && match_length <= prev_length 
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int distance = string_starting - previous_matching_poin 
ter - (MIN_MATCH - (MINJIATCH == 4 ? 2 1>); 

int len = prev_length - MIN_MATCH; 
in_advance_reading -= prev_length-l; 
prev_length 2; 
do { 

string_starting ++; 
count_start++ ; 

Ul « * (unsigned int *) (Fereastra + s tr ingest art ing 

); 

U2 = *(\insigned int *) (Fereastra + \string_starting 

+ 1) ; 

hashjieader = HASHS (Ul, U2) ; 

hash_head=liead [hash_header] . Li ; 

hash_head| =head[hash_header] .He « IS; 

val' = ( (string_starting) & WMASK) ; 

prevtval] .Li = (unsigned short) (hash_head) ; 

prev[val] .He = (unsigned ch^r) (hash_head»16) ; 

head [hash_header] .Li = (uns.igned short) (string_sta 

rting) ; 

head [hash_header] .He = (unsigned char) (string_star 

ting»16> ; 

} while (--prev_length != 0) ; ,* 
match_available = 0 ; 
raatch_length = MINJ4ATCH-1; 
string_starting++ ; 
count^start++ ; 

Tree_jincode (distance + 1, len); 

} 

else 

if (match_available) 
{ 

Tree_Encode (0, Fereastra [string_starting-l] ) ; 
string_starting++; ; 
count_start++ ; 
in_advance_reading-- ; 

} 

else 

{ 

match_available - 1; 
string_starting++ ; 
in_advance_reading- - ; 
count_start++ ; 

} 

while (EndOf File == o && in_advance_reading < MIN_LOOKAHEAD) win 
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dow_f ill_in() ; 

} 

if (match_available) 
{ 

Tree_Encode ( 0 , Fereastra [string_starting-l] ) ; 



Tree_Flush ( ) ; 
Pr intProgres s 

return 1; 

} 

int inflate () - 
{ " 

int Dis=0^ Pos=0, Len=0, Len2=0, stop « 0; 
unsigned int CurPos = 0, i=0, j=0, k=0; 
unsigned int flags = 0; 

f or ( ; Read_Block ( ) == o ; ) \ " 

{ 

if(restbits > 8) 

{ 

restbits-=9; 
stop =1; 

} 

else stop =0/ 

for (i=0; i < BitBufC; i++) 

{ 

flags = BitBuf [i] ; 

k = (i BitBufC - 1? (restbits 0 ? 8 : restbits) : 8) 

for(j=0;. j < k; j++) 

{ • ■ 

if (flags & 1) 

{ 

Fereastra [CurPos++] = LitBuf [LitBuf C++] ; 
if (CurPos WSIZE) 
{ 

flush_window (CurPos) ; 
CurPos - 0; 

} 

} 

else 

{ 

Dis = DistBuf [DistBuf C++] ; 
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<<= D_REST_BITS; 

j= (RestBuf 2 [RestBuf C2++] « {D_REST_BITS - 8)); 
1= (RestBuf 1 [RestBuf C1++3 & OxFF) ; 
= (CurPos - Dis - {MINjyiATCH - (MINjyEATCH 4 ? 
3 5 2))) & (WSIZE-1); 

Len = LenBuf [LenBuf C++] ; 

if (Len ==x 255) 

{ 

lien = LenBuf [LenBuf C++ 3 ; 
Len2 LenBuf [LenBuf C++] ; 

Len j= {{Len2 & OxOOff) « 8); 

} 

Len +=^ MIN_MATCHj_ 

E5: • 

Fereastra [CurPos++] = Fereastra [Pos] ; 
Pos = (Pos + 1) & (WSIZE-l) ; 
if (CurPos WSIZE) 
{ 

flush_window( CurPos) ; 
CurPos = 0; 

} 

if (--Len 1= 0) goto B5; 

} .; 

flags >>= 1; 

} 

} 

if (stop)" break; 

} • 

flush_wind.ow (CurPos) ; 

sprintf (tmp," " %-63s InFile) ; 

sprintf (tmp2, ".%s", (TotalSum ? "not OK" : "Ok")); 
if(Solida == 0 ) 

{ 

Print (tmp, " ", 2., "melted", " », 3, Solida 0 ? tmp2 : " 
"r "\n", 4, »", 0, -1); 

} 

. return 0 ; 
} 
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- #include <stdio.h> 
#include <stdlib.h> 
#include <s tring . h> 

#include "huff man . h" 

#def ine STATES_NO 1 

FILE *infile, *outfile; 

short X; 

unsigned int _ _outcount=0; _ 
unsigned char inbitstringlen =0; 
unsigned int inbitstringbuf = 0; 
unsigned int outbitstringbuf =0; 
unsigned char outbitstringlen =0; 

struct HuffmanTree GTree;// GallagerTree [STATES_NO] ; 



void EncodeBuffer {unsigned int Size, unsigned ..char *Buffer, unsigne 
d char *OutBuff / unsigned int *outcnt) ' ' 

{ 

unsigned int code; 

unsigned int CQde_buff; 

unsigned int code_length, k, k2; • 

int temp^freq; 

int son_index^ sibling_index, dad_cpde, sibling_code; 
int dadl_ihdex, dad2_index, dad_index; 



(*outcnt)=0; •[ 
outbitstringlen =^ O^- 
outbitstringbuf = 0; . 

for (codejDuff = 0.; code_buff < MZ^ CHARACTERS; code buff++) 

{ . - " " 

GTree. Spl_Freq[code_buff] = 1; 

GTree.Spl_Son[code_buff] = code_buff + ROOTPLUSONE; 
GTree.Spl_Dad[code_buf f + ROOTPLUSONE] = code buff; 
} ^ " ■ 

for (code_buf f =^ 0, code_length = MAX_CHARACTERS ; code_length <= 
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ROOT; code buff += 2, code lenQtii++) 
{ 

GTree.Spl_Freq[code_length] = GTree . Spl_Freq [code_buff] + g 
Tree • Spl_Freq [code_buf f +1]; 

GTree . Spl_Son [code_length] = code_buff; 
GTree . Spl_Dad [code_buff + 1] = code_length; 
^ GTree . Spl_Dad tcode_buff] = GTree . Spl JDad [code_buff + l] • 

GTree . Spl_Freq [ROOTPLUSONE] = 65535 ; 
GTree • Spl JDad [ROOT] = 0; 

fQr(k2 = 0; k2 < Size; k2++) 
{ 

code = Buffer[k2]7' 
code_buff =0; 

code_length =0; 
k = GTree . Spl_Dad [code + ROOTPLUSONE] ; 

for ( ; ; ) 
{ 

code_buff >>= 1; 

COde_buff (k & 1) ? MAX^FREQ : 0; 

code_length++ ; 

k = GTree . Spl^Dad [k] ; 

if (k ROOT) break; 

} 



outbitstringbuf |= code_buff » outbitstringlen; 
if ((outbitstringlen += code_leng.th) >= 8) 

OutBuff [ (*outcnt)++] = (unsigned char) (outbitstringbuf » 

8); 

outbitstringlen 8; 
if (outbitstringlen >= 8) 

OutBuff [ (*outcnt)++] = (unsigned char) (outbitstringbuf ) 
outbitstringlen -= 8 ; 

outbitstringbuf = code_buff « (code_length - outbitstr 

inglen) ; 

} 

else 

{ 
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) 



outbitstringbuf «= 8 ; 

} 

} 

if (GTree . Spl_Freq [ROOT] == MAX FREQ) 
{ 

dad2_index = 0; 

for (dadl_index = 0; dadl_index < ROOTPLUSONB; dadl_index++ 



{ . 
if (GTree . Spl_Son [dadl index] >= ROOTPLUSONB) 

{ 

GTree . Spl_Freq [dad2_index] = (GTree . Spl_Freg [dadl_index 

.1-.+. !)_.». 1; . _ .._ 

CTree . Spl_Son [dad2^index++] = GTree . Spl Son [dadl index 

] ; 

} 

} 

for (dadl_index = 0, dad2_index = MAX_CHARACTERS ; dad2_inde 
X < ROOTPLUSONB; dadl_index += 2, dad2 index++) 

.{ 

dad_in<iex = dadl_index + 1; 

GTree . Spl_Freq [dad2_index] =r GTree . Spl^Freq [dadl_index] + 
GTree , Spl£Freq [dad_index] ; 

temp_f req = GTree . Spl_Freq [dad2_index] ; 
dad_index = dad2_index - 1; 

for .(dad_index; GTree . Spl^Freq Cdad_index] > temp_freq 
; dad_index--) ; dad_index++; ^ 

for(int u = dad2_index - dad_index - 1; u >= 0 ; u-- 
) GTree. Spl_Freq[dad_index + u + 1] = GTree.Spl_Freq[dad_index + u] 
; GTree :Spl_Freq[dad_index3 = temp_freq; 

for(int uu = dad2_index - dad_index - 1; uu >= 0 ; u 
u--) GTree. Spl_Son[dad_index + uu + 1] =^ GTree . Spl_Soh [dad_index + 
uu] ; GTree . SpI_Son [dad_index] = dadl_index; 

} 

for {dadl_index = 0; dadl_index < ROOTPLUSONB; dadl index++ 

) 

{ 

dad_index == GTree. Spl^Son [dadl_index] ; 
if (dad_index >= ROOTPLUSONE) GTree . Spl_Dad [dad_index] =: 
dadl_index ; 

else 

{ 

GTree . Spl_Dad [dad_index + 1] = dadl_index; 
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GTree . Spl^Dad [dad^index] = CTree. Spl Dad [dad index 

+ U; 

} 

} 

} 

code = GTree . Spl_Dad [code + ROOTPLUSONE] ; 

for { ; ; ) 
{ 

GTree . Spl_Freg [code] ++ ; 
dad_code = GTree - Spl_Freq [code] ; 
sibling_code = code +1; 



if (GTree. Spl_Preq [sibling code] < dad code) 

{ - - . 

for(;;) 
{ 

sibling_code ++; 

if(dad_code <= GTree . Spl_Freq [sibling code]) 

{ • 
sibling_code- - ; 

break; 

} 

} 

GTree . Spl_Freq [code] = GTree . Spl_Freq [sibling_code] ; 
GTree . Spl^Freq [sibling_code] = dad_cbde ; 
. son_index = GTree. Spl_Son [code] ; 

GTree . Spl_Dad [son_index] = sibling_code ; 

if (son_index < ROOTPLUSONE) GTree, SplJDad[son_index + 1] 
= sibling_code; 

sibling_index = GTree . Spl_Son [sibling_code] ; 
GTree . Spl_Son [sibling_code] = son_index; 
GTree. Spl_pad[sibling_index] = code; 

if (sibling_index < ROOTPLUSONE) GTree . SplJDad [sibling_in 
dex +1] = code; 

GTree . Spl_Son [code] = sibling_index; 
code = sibling code; 

} 

code = GTree . Spl_Dad [code] j 
If (code ==0) break; 

} 

} 

if (outbitstringien) 
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{ 

^ OutBuff [ {*outcnt)++] =. (unsigned char) (outbitstringbuf » 8) ; 



} 

void DecodeBuffer (unsigned int Size, unsigned char *Buffer, \insigne 
d char *OutBuff , tmsigned int *outcnt) 

{ 

int tmpl, tmp2, code; 

unsigned int incontor =0; 
int temp_freq; 

_ int son_index, sibling_index, dad_code, sibling_code; 
irit "dadl_iixdex , dad2_index , dad_index ; 



{*outcnt) - 0/ 
inbitstringlen = 0; 
inbitstringbuf = 0; 

for (tmpl = 0; tmpl < MAX CHARACTERS; tmpl+ + ) 
{ 

CTree. Spl_Freq [tmpl] ==1; 

CTree. Spl_Son [tmpl] = tmpl + ROOTPLUSONE; 
CTree . Sp l_Dad [tmpl + ROOTPLUSONE] tmpl; 



for (tmpl = 0, tmp2 = MAX_CHARACTERS ; tmp2 <= ROOT; tmpl +=2, tm 
p2++) 

{ 

CTree. Spl_Freq[tmp2] = CTree • Spl_Freq [tmpl] + CTree . Spl_Fre 
q[tmpl + 1] ; 

CTree . Spl_Son [tmp2] = tmpl; 
CTree . Spl_Dad [tmpl + 1] = tmp2; 

CTree , Spl_Dad [tmpl] = CTree , Spl_Dad [tmpl + 1] ; 



CTree . Spl_Freq [ROOTPLUSONE] = 65535 ; 
CTree . Spl_Dad [ROOT] = 0; 

for (unsigned int Ic = 0; < Size; ) 
{ 

code - CTree . Spl_Son [ROOT] ; 
for ( r : ) 
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if (code >= ROOTPLUSONE) break;- 
for ( ; ; ) 

{ 

if (inbitstringlen > 8) break; 
X = Buf f er [incontor++l ; 

inbitstringbuf |= x << (8 - inbitstringlen); 
inbitstringlen +=8; 

} 

X = inbitstringbuf; . : 
inbitstringbuf <<= 1/ 
inbitstringlen-- ; 

code += (x < 0) ; 

code ="* CTree ."Spl_Son [code] ;* 

} 

code -= -ROOTPLUSONE; 
int xcode » code; 

if (GTree.Spl_Freq[R0OT3 == MAX_FREQ) 

{ . ' 
dad2_index = 0 ; 

for (dadl_index = 0; dadl_index < ROOTPLUSONS ; dadl_index4-+ ) 

{" 

if j[GTree . Spl_Son [dadl_index] >= ROOTPLUSONE) 
{ 

GTree . Spl_Freq [dad2_index] = (GTree . Spl_Freq [dadl_index 
] + 1) » 1; . , " 

GTree . Spl_Son [dad2_index++] = GTree . Spl_Son [dadl_index 

] ; 

} 

}. .: 

for (dadl_index = 0, dad2_index = MAX_CHARACTERS / dad2_index 
< ROOTPLUSONE; dadl_index += 2, dad2_index++) 

{ 

dad_index = dadl_index + 1; 

GTree ^ Spl_Freq [dad2_index] = GTree . Spl_Freq [dadi_index] + 
GTree . Spl_Freq [dad_index] 

temp_freq = GTree . Spl_Freq [dad2_indexl ; 
dad_index = dad2_index - 1; 

foir (dad_index; GTree . Spl_Freq [dad_index] > temp_freq; 
dad___index - - ) ; dad_index+ + ; 
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for(int u = dad2_index - dad_index - 1; u >= 0 • u -) 
GTree.Spl_Freq[dad_index + u + l] = GTree.Spl Freq[dad index + ul - 
GTree . Spl_Preq [dad_index] = teinp_freg; ~ ~ • 

for(int uu = dad2_index - dad_index - 1; uu >= 0 • uu 
— ) GTree. Spl_Son[dad_index + uu + 1] = GTree.Spl Son [dad index + u 
u] ; GTree . Spl_Son [dad index] = dadl index; ~ ~ 

} ~ - 

for (dadl_index = 0; dadl_index < ROOTPLUSONE; dadl_index++) 
• { 

dad_index = GTree . Spl_Son [dadl_index] ; 
if (dad_index >= ROOTPLUSONE) GTree.Spl Dad [dad indexl = d 
adl_index; — — * ^ 

else 

{ 

GTree.Spl_Dad[dad_index + l] = dadl_index; 

GTree. Spl_Dad[dad_index] = GTree.Spl Dad [dad index + 
1] ; ~ — 

} 

} 

} 

code = GTree . Spl_Dad [code + ROOTPLUSONE] 

for{/;) 
{ 

GTree . Spl_Freq [code] ++ ; 
dad_code = GTree. Spl_Freq [code] ; 
sibling_code = code +1; 

if (GTree . Spl_Freq [sibling_code] < dad_code) 

for ( ; >• ) 
{ 

sibling_code ++; 

if (dad_code <= GTree . Spl_Freq [sibling^code] ) 
s ibl ing_code - - ; 

break; 

GTree. Spl_Freq [code] = GTree.Spl_Freq[ sibling code] • 
GTree. Spl_Freq[sibling_code] = dad_code; 
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son__index = CTree . Spl_Son [code] ; 
GTree.Spl_DadIson_index] = sibling_code; 

if (son_index < ROOTPLUSONE) GTree.Spl Dad [son index + n 
= sibling_code; ~ 

sibling_index = GTree.Spl_Son[sibling_code] ; 
CTree. Spl_Son[sibling_code] ^ son_index; 

CTree •Spl_Dad[sibling_index] = code; 

if (sibling_index < ROOTPLUSONE) GTree.Spl Dad [sibling ind 
ex + 1] = code; — 

CTree. Spl_Son [code] = sibling_index; 
~ sibling__code; 



code = CTree . Spl_Dad [code] ; 
if (code === 0) break; 

} 

OutBuff [{*outcnt)++] = (unsigned char) (xcode) ; 



} 

imsigned char InBuf [MAX_READ] ; 
xinsigned char OutBuf [MAX_READ*2] ; 
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* 

* 

* Obsolete ZIP header comversion procedures 
* 

* 

* 

* From Xtreme 106 (DLL) package by Sabin^ Belu (c) 1999 
* 

* 

#pragina pack (1) 

#include "util . h" 
#include "solid.h" 
#include " string • h" 
#include " zipheads . h" 
# include " console . h" 

ZIP_Header ; ZIP_H, ZIP_1; 

ZIP_Central_Directory_Head.er ZIP_CDH; 
ZIP_End_Of _Central_pirectory_Header ZIP_CDHE ; 

int WriteFirstZipHe'ader (void) 
{ 

// create a Zip Header. The zip archives do not have a special 
archive header, so 

// we will simulate 

char tm p ["MAX PATH] ; 

if (SolidArray [0] lRealName[l] == ' : » && SolidArray [0] .RealName[2 
] »\\t) // the disk is in front 
{ . 

memset (tmp o, sizeof (tmp ) ) ; 

memcpy( (unsigned char *)&tmp [0] , (unsigned char *)&SolidAr 

ray[0] .RealName[3] strlen (SolidArray [0] .RealName) - 3) ? 

else 

memcpy( (unsigned char *) S:tmp__[01 , (unsigned chair *)&SolidAr 
ray [0] -RealName [0] , .'strlen (SolidArray [0] .RealName) ) ; 
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Z I P_H. signature ^ 0x04034b50; 
ZIP_H.version = 106; 
ZIP_H.general_bit = 2; 
ZIP_H.compressionjuethod =11; 
ZIP_H.time_ =0; 
ZIP_H.dat e_ =0; 
ZIP_H.crc32 =0; 
ZIP_H, compressed =0; 

ZIP_H, uncompressed = SolidArray [0] .size; 

ZIP_H.f ilenamel = strlen(tmp_^ ); 

ZIP_H.extra_len = sizeof (struct ARH_Header) ; 

if (fwrite(&ZIP_H, 1, sizeof (ZIP_H) , F2) 1= sizeof {ZIP_H) ) Erro 

r{7, "") ; _ 

if (f write (&tm p ] 1, ZIP_H\f ilenamel"r"F2)"" "l= ZIP^H^f ilenamel) 
Error (7, ""); 

//if (fwrite{&ARH_H, 1, sizeof (struct ARH_Header) , F2) 1=^ sizeof 
(struct ARH_Header) ) Error (7, ""); 

if (FWrite_Aim_Header (5tARH_H, F2)) Error {s7, ""); // rewritten, li 
as a 4 byte CRC built in! 



memcpy{ (unsigned char *)&ZIP__1, (unsigned char *}S:ZIP_H, sizeof 
(ZIP_H) ) ; 

return 0; 

} 

int WriteZipHeaders (long *AllWritten) 

{ 

long where_to; 

char tm p [_MAX_PATH] ; 

unsigned int i. Extra = 0, Relative - 0; 



Print (" 14, " Updating Zip Header ..."^ « 14, "\n" 

, 14, 14, -1); 

ZIP_1. compressed = *AllWritten; 
where_to = ftell(F2)/ 
rewind (F2) ; 

if (fwrite(S:ZIP_l, 1, sizeof (ZIP_1) , F2) 1= sizeof {ZIP_1) ) Error ( 
7, ""); 

fseek(F2, where_to, SEEK_SET) ; 
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ford ==0; i<SolidN; i++) 
{ 

if (SolidArray [i] .RealName[l] » : » SolidArray [i] •RealName [2 

] ~ '\\') // the disk is in front 
{ 

memset (tm p , 0 , sizeof (tm p ) ) ; 

memcpy{ (unsigned char *)&tTnp [0] , (unsigned char *)S:SolidAr 

ray[i] .RealNamels] , strlen(SolidArray [i] .RealName) - 3) ; 

memset (SolidArrayEi] .RealName, 0, sizeof (SolidArray[i] .RealNa 

me)); 

memcpyC (unsigned char *) &SolidArr ay [i] .RealName [0] , (unsigned 
char *) &tm p [0] , strlen(tm p ) ) ; 

} \ 

for(i = 1; i<SolidN; i++) // first the ZIP H headers 
{ 

ZIP_H. signature = 0x04034b50; 
ZIP_H. version = 106; 

Z'lP_H.general_bit = 2; 

ZIP_H. compress ion_method = 4;// (SolidArrayli] .size < 40 ? 0 s ( 
(SolidArrayCi] .size % 10) +1)); 

ZIP_H.time_ = (unsigned short) (SolidArray [i] . time_date) ; 

ZIP_H-date_ = (unsigned short) (SolidArrayCi] .time_date » 16); 

ZIP_H.crc32 = 0xEA8CDEF6 ((unsigned long) (SolidArrayCi 

1 .size * 991111) ) ;_ 

ZIP__H. compressed =0; 

ZIP_H. uncompressed = SolidArray [i] .size; 

ZXP_H.f ilenamel = strlen(SolidAr:ray[i] .RealName) ; 

ZIP_H.extra_len =0; 

if (fwrite (&ZIP_H, 1, sizeof (ZIP_H) , F2) 1= sizeof (ZIP_H) ) Erro 
r(7, ""); 

if (fwrite (&SolidArray Ci] .RealName^ 1, ZIP_H.f ilenamel, F2) != Z 
IP_H.f ilenamel) Error(7, ""); 

}• 

where_to = ftell(F2); 

for(i =0; i<SolidN; i+-f) // then the other ones 1 
{ 

Z I P_CDH. signature = 0x02014b50; • 

ZIP_CDH.ver = 2580; 

ZIP_CDH.ver_extr = 106; 
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Z I P_CDH . gener al_b it = 2 ; . 

ZIP_CDH.corapress_m = 4;// (SolidArray [i] .size < 40 ? 0 : { (s 
olidArray ti] .size % 10) + l) ) . // de* schepsis 

ZIP_CDH.time_date = SolidArray [i] .time_date/ 

ZIP_CDH.crc32 (i 0 ? 0 : 0xEA8CDEF6 ^ ({unsigned 

long) (SolidArray [i] .size * 991111))); 

ZIP_CDH. compressed = (i == 0 ? ZIP_1 . compressed : 0) ; 

ZIP_CDH. uncompressed = SolidArray [i] .size; 

ZIP_CDH,file_n = strlen (SolidArray [i] .RealName) ; 

ZIP_CDH.extra_f ield = (i 0 ? ZIP_1 , extra_len : 0); 
ZIP_CDH.external_attr = 32; 
ZIP_CDH,f ile_comraent =0; 
ZIP_CDH.relat_of f set = Relative; 

Relative +== ZIP_CDH. compressed + sizeof (ZIP_H) + ZIP_CDH.file 

• ZIP_CDH. extra_f ield; 

if (f write (&ZIP_CDH, 1, sizeof (ZIP_CDH) /^F2) i= sizeof (ZIP CDH) 
) Error ( 7 , " " ) ; . 

if (f write (&:SolidArray[i] .RealName, 1, ZIP_CDH. f ile_n , F2) 1 = 
ZIP_CDH.f ile_n) Error(7, ""); 

//if{i == 0) f write (&ARH_H, 1, sizeof (struct ARH_Header) , F2) ; 
if(i 0) FWrite_ARH_Header (5JVRH_H, F2) ; // rewritten, 
has a 4 byte CRC built inl 

Extra += sizeof (ZIP^CDH) + ZIP_CDH, extra_f ield + ZIP_CDH.file 

_n; 
} 

ZIP_CDHE. signat_end = 0x06054b50; 
ZIP_CDHE.total_;entries_here « SolidN; 
ZIP_CDHE.total_entrieS « SolidN; 

ZIP_CDHE. size_of_cdh « Extra; 

ZIP_cbHE.start_cdh = where_to;// + SolidN*sizeof (ZIP_CDH 

) 7 



if (f write (&ZIP_CDHE, 1, sizeof {ZIP_CDHE) , F2) 1= sizeof (ZIP CDHE) 
) Error(7, "")/ 

return. 0; 

} 
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* 

* 
* 
* 

•k 

* 

* 



Usefull junks to keep it rolling 
From Xtreme- 106 (DLL) package by Sabin, Belu (c) 1999 



* 

#pragma pack (l) 

#include <stdio.h> 
#include <direct.h> 
#include <string.h> 
#include <stdlib.h> 

#include <fcntl.h> 
#include <sys/ types . h> 
#include <sys/stat.h> 

#include <sys/utime .h> // to modify the file time 
#include <windows . h> 

# include " cr c . h " 
#include "util,li»' 
# include " solid . h" 
#include " console. h" 
#include "deflate.h" 
#include "recoveiry-h" 
#include "zipheads.h" 

#include "exports. h" 

declspec( dllexport ) int Xtreme^Archive (char *name, unsigned in 
t *arhf ileno) ; 

unsigned int hash__header; // hash index of string to be inserted 
struct TableData conf iguration_table [9] = 

//WSIZE_I3NroEX MIN_MATCH MAX_MATCH HASH_BITS TOO DISTANT D 
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REST BITS 





{ 1/ 


4, 


258, 


15, 


1, 


1, 


"32K" }, //no more 










{ 2, 


4, 


10000, 


16, 


1, 


8, 


"64K" }, 












{ 4, 


4, 


20000, • 


17, 


1, 


9, 


"128K" }, 












{ 8/ 


4, 


30000, 


18, 


1, 


10, 


"256K" }, 












{ . 16, 


4,- 


40000, 


19, 


1, 


11, 


"512K" }, // 


it seems 


it does'nt give much compress 




{ 32, 


4, 


.60000, 


19;- 


1/ 


12, 


"1024K" }, 












{ .... 64,. 


.4,.. 


62000^ 


_-.2Q, 


.. 1/ . 


13 7 ■ ~" 


"2048K" }, 












{ 128, 


4, 


64000, 


20, 


1, 


14, 


"4096K" }, 












{ • 256, 


4, 


65200, 


20, 


1, 


15, 


"8192K* } 











}; 



X. 



bool write_melt = 1; 

unsigned long header_pos =0; // this is not the safer place for a 

initialization ! 

char tmp [_MAX1pATH1 , tmp2 [JVEAX^PATH] ; 

struct ARH_Header ARH_H; 

struct XTREME_Header XTREME_H; 

imsigned int Totalout; outcnt; 

extern SolidFileType *SolidArray; 



int 

unsigned int 
unsigned int 
unsigned int 
unsigned int 
unsigned int 
unsigned int 



EndOf Fi 1 e , ni ce_mat ch ; 
prev_length; 
str ing_start ing ; 
afis_start; 
count_start i 
match^start / 
in_advance_reading ; 
unsigned short max_Ghain_length; 
unsigned short max_lazy_jnatch; 
unsigned short good_jnatch; 

unsigned int TOO_DISTANT, WSIZE, window_size, HASH_BITS, HASH_SIZ 
E, HASH_MASK, WMASK, MAX_DIST, H_SHIFT, MINJMATCH, MAX_MATCH, L_RES 
T_BITS, MIN_LOOKAHEAD; 
unsigned char HASH_MAX ~ 5; 
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#define ErrorMess(a, da, ca, b, db, cb, c, dc, cc, d, dd, cd) if (M 
yXtrStructure • ErrorMessageDisplayFunction) MyXt^rStructure . ErrorMes 
sageDisplayFunction (a, da, ca, b, db, cb^'c, . dc, cc, d, da, ca) ; 

void Error (short errorindex, char * additional text) 

{ 

switch (errorindex) 
{ 

case 0 : ErrorMess(" #ERROR 1 " 12, « The file 
2 , short_str (addit ionaltext , 60) , !" " , 2 , 

" could not be opened l\n 
File does not exists, could not be created, or too many open files" 
, " 2); 

break; 

case 1 : BrrorMess ( " #ERROR 2 " ", 12, " Archive 
2, short_str (Destination, 60), "«"^ 2, " cannot be recognized !!\ 
n ", " ?! 2) ; 

//TryToRepairO ; 
break; X. 

case 2 : ErrorMess(" #ERROR 3 " 12, " Archive 
2, short__str (Destination, 60), 2, " is damaged ii\n ", " ?!" 

r 2); 

//TryToRepairO; .* • 

break; 

case 3 : ErrprMess (" #ERROR 4 " 12, " Inconsistent dat 
a crc, data write failed 2, "", 2, " " ?!", 2); 

break; 



case 4 : ErrorMess ( " #ERROR 5 " 12, "Inconsistent data 
crc, data read failed i", 2, "", "", 2, " " 2); 

//TryToRepairO; 

break; 

case 5 : ErrorMess (" #ERROR 6 ", " 12, " Error packing fi 
le names ! «, "", 2, 2, " ", " 2); 

break; 

case 6 : ErrorMess {" #ERROR 7 " 12, " Error melting fi 
le names 1 « , " " , 2 , " " , "", 2 ,"","?!", 2) ; 
//TryToRepairO ; 
break; 
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case 7 : ErrorMess(" #ERROR 8 " 12, " Error writting t 
he archive header I 2, 2, " " 2)7 

break ; 

case 8 : ErrorMess(" #ERROR 9 " 12, " Error reading th 
e next header ! 2, 2, " " 2) ; 

//TryToRepair ( ) ; 
break; 

case 9 t ErrorMess(" #ERR6R 10 " 12, " Unexpected END-O 
F -ARCHIVE encountered I » , « " , 2 , " " , " « , 2 , " " , " ? I « , 2) ; 
//TryToRepair ( ) ; . 
break; 

case 10 : ErrorMess ( " #ERROR 11 " File size 12, Destinafc 
ion, "size changed since scanning !", 2> " Decompression will no lo 
nger be error-free I", " " , 2 , " " , " ? I " ^ 2) ; 
break; 

case 11 : ErrorMess {" #ERROR 12 " Ai"chive ", 12, Destinatio 
n, » cannot be processed! 2, 2, " « ?!", 2); 

break; 

case 12 : ErrorMess {" #ERROR 13 ", "", 12, Destination, " 
seems to have no files i 2, "", "", 2, " " 2); 
break; 

case 13 ErrorMess ( " #ERROR 14 " Unable to modify LOCK 
ED archive 12, Destination, " Create, a new archive by extracting 
/deleting/repacking files.", 2, "", "", 2, " ", " ?l", .2); 
break; 

case 14 : ErrorMess {" #ERROR 15 "Recovery record not found 
I", 12, Destination, "The archive must have been protected first 
p'rotect command) i", 2, »«, 2, " ", " 2); 

break; 

case 15 : ErrorMess (" #ERROR 15 "Recovery record found I", 
12, Destination, "Archive is already protected 1", 2, "", 2, " 

break; 

case 16 : ErrorMess (" #ERROR 15 », "Inconsistent header in 
formation ! If header CRC error ", 12, »", " was not reported, DLL 
received garbage data", 2, "", "", 2, " ", " ?!", 2) ; 
break; 
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} 

} 

void Print Start ( ) 

{ . 

afis_start =0; 
cotmt^start = 0x001; 

} 

int CreateTemporaryArchive(char" *DestinationDir, char *temp_name) 

char tempex [ _M2\X_PATH ] ; 

memset {tempex, 0, sizeof (tempex) ) ; 

mens e t ( t emp^name , 0 , _MAX_PATH ) ; 

St rcpy (tempex, DestinationDir) ; . "* * 

strcat (tempex, »»xtremly . tmp" ) ; 

if({F2 =s f open (tempex, "wb+") ) ==NUIiL) return 1; 
strcpy (temp_name, tempex) ; 
return 0; 

} 

int file_exists (char *disk, char *filename) 
{ char tmp [_MaX_PATH] ; 

memset(tmp, 0, sizeof (_MAX_PATH) ) ; 

if (disk [0]) 

{ 

strcpy(tmp, disk); - " 

^ if {trap[strlen(tmp) -1] != '\\') strcat(tmp, "\\") ; 

strcat(tmp, filename); ; 
return (access (tmp, 0) 0); 



short IntoarceProcent (unsigned long A, unsigned long B) 
{ unsigned long Oli, olil; 

if (A > IOOOOOOI3) Oli = A/1000, Olil = B/1000; 
else Oli = A, Olil = B; 
^ return (short) ( (Oli * 1000) / (Olil == 0 ? 1 i Olil)); 

char *short_str (char *olds, int cat) 
static char tmp3 [_MAX_PATH] ; 
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if (strlenColds) > (imsigned j-xAu/v^au/ 

memset (tmp3, 0, sizeof (tmp3) ) ; 
strcpy { tmp3 ,"•."); 

strcat (tmpS, (char *) &:olds [strlen (olds) - cat + 2] ) ; 
return tmp3 ; 

} 

else 

return olds ; 

} 



extern void window_f ill_in() ; 
void initiklize^engiiie (short ~pack_revei) 
register unsigned int j ; 

if (Fereastra ITOLI. | j prev « NULL j j head NULL) { Error (1 
1, " ") ; exit (0) ; } 

for (j = 0; j < HASH SIZE; j++) 
. { 

head [j] .Li = (unsigned short) 0x0000 ; 
head [j], He = (unsigned char) 0x00; 

} 

string_starting =0; 

inax_lazy_match = 32; good_match =8; nice_Tnatch = 128; max_chai 
n_length = 1024; * - 

in_advance_reading = read_from_f ile { (unsigned char *) Fereastra 
, (unsigned int)WSIZE) ; 

if (in_advance_reading 0 | | in_^dvance_reading (unsigned 
int )EOF) { EndOfFile = 1, in_advance_^reading = 0; return; } 

EndOfFile =0; 

while (in_advance_reading < MIN_LOOKAHEAD ScSc S EndOfFile) window 
_fill_in() ; 

hash_header =0; 



void Split (char *Name, char *drv, char *dir, char *fnam, char *ext) 
_splitpath(Name, drv, dir, fnam, ext) ; 

//_strlwr (drv 1= NULL ? drv : " "); _strlwr(dir 1= NULL ? dir : 

n 

//__strlwr (fnam 1= NULL ? fnam : " "); _strlwr(ext 1= NULL ? ext 

} 
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void ComplexSplit (char *Name, char *drv, char *dir, char *fnam, cha 
r *ext) 

{ 

FILE *U; 

char curr [_MAX_PATH] ; 

U = f open (Name, "r") ; 
_splitpath{NaTne, drv, dir, fnam, ext) ; 

if{U i= NULL) f close (U); 
else 

{ 

//a directory or a directory withh a *,c, *.???? 

~"_get*cwd(curr, sizeof (curr) ) ; . ' 
if (_chdir (Name) « -1) 
{ 

// must have a special *•*, or *. because we cannot change th * 
e path rightly 

} 

else 
{ 

_chdir (curr) ; // otherwise the updated archive will come here 
i • 
if (dir NULL) / • 

{ 

strcat(dir, f nam) ; 

if (ext [1] 1= '*') strcat (dir/ ext) ; 

CheckSlash(dir) ; // if (dir [strlen(dir) -1] 1= »\\ 
') strcatCdir, "\\") ; 

memset (fnam, 0, sizeof (fnam) ) ; j 

• 

if (fnam 1= NULL && fnamEO]- == 0) strcpyCfnam, »*«) • 
if (ext != NULL && ext [0] == 0) strcpy(ext, ".*"); 
if (dir [0] == '\\>) { strcpy(dir, (char *) &dir[13)? strcat (drv 
, "W"); } 
} 

//_strlwr (drv != NULL ? drv : "); strlwr(dir 1= NULL ? dir : 
.. .. ) . 

//_strlwr (fnam != NULL ? fnam : " ") ; strlwr(ext •= NULL ? ext : 

} 

void GetCurDir (char *temp) 
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memset (temp, 0, _MAX_PATH) ; 
_getcwd {temp , _MAX_PATH) ; 
if (temp tstrlen( temp) - 1] != 

} 



»\\") strcatCtemp, »\\") ; 



void GetTemporaryDirectory (char *buffer) 

memset (buff er, 0, _jyiAX_PATH) ; 
GetTempPath{jyiax_PATH, buffer); 

if (buffer tstrlen (buffer) - 1] *!= • V\ ' ) . strcat (buf f er. 



int _unlinkjpath(char *path, char kill directory) 

"{ - .... - 

char drive [_MAX__PATH] ; 
char direct [_iyiAX_PATH] ; 
char dir • [jyiAX__DIR] ; 
char f name [_MAX_FNAME] ; 
char ext [_MAX_EXT] / 
int er; 

. memset (direct, 0, sizeof (direct) ) ; memset (drive, 0, sizeof (drive 
) ) ; memset (dir, 0, sizeof (dir) ) ; memset (fname, 0, sizeof (fname) ) 
; memset (ext, 0, sizeof (ext) ) ; 

_splitpath(path, drive, dir, fname, ext) ; 
strcat (drive , dir) ; 
strcat (direct , drive); 
strcat (drive, fname); 
strcat (drive, ext) ; 

er = _unl ink (drive) ; : 
if (kill_directory) _rmdir (direct) ; 
return er; 

} • 

void MkDir(char *MDir) 
{ unsigned char a=0, j=0; 

char TM [_MAX_PATH] ; 

// This is my special MKKDIR procedure : 
// Creates a special directory like 

// "C:\\D\\T\\y\\u7\\7\l2\\l212l\\6565\\87878\\787 

// required when decompression, even if for instance D\\T\\y\\U 

7 

// do not exist i 
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Tnemset{TM, 0, _MAX_PATH) ; 
while ((a = MDir[j++]) l= 0) 

{ 

if (a == '\\') Tnkdir{TM); 
TM[strlen{TM) ] = a;. 

} 

} 

int Verify (char *Name, char *Synibol, char LenN, char LenS) // Syrabo 
l=????top, ==> lsrame=desktop 
{ char j ; 

char ra = LenS < LenN ? LenS : LenN; 
char S [300] ; 
char N[300] ; 

if ( (Istrpbrk (Symbol, "*") ) && (LenS 1= LenN) ) return 0; 

strcpy(S, Symbol); strlwr(S); 
strcpy(N, Name ); strlwr(N) ; 
for {j:=0; j < m; j++) 
{ 

if(S[j] »*» II S[j]«'I» II S[j]=='?'); // Can he. anything 

else 

if(S[j3 return 0; / 

} 

return 1; 

} . ; . 

extern XTREME106_CMDSTRUCTURE MyXtrStructure; 

void Fclose(FILE *0, unsigned int _SolidArrayIndex, xinsigned int al 
lowed) 

{ 

struct _utiinbuf times; // set file's modification time I 
char RealPathToFile[_MAX_PATH*2] ; 

memset ( (unsigned char *) RealPathToFile, 0, sizeof (RealPathToFile 

) ) ; 

if (O) 
{ 

f close (O) ; 
if (allowed) 

{ , 

times • actime = ( time_t ) SolidArray [_SolidArray Index] . time_d 
ate; // (time__t) (date_and_time) ; 

times. modtime = {time__t) SolidArray [_SolidArrayIndex] .time_d 
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ate; //(time^t) (date_and_time) ; 

strcpy (RealPafchToFile , MyXtrStructure . extracfcionDirectoir 

y) ; 

CheckSlash{RealPathToFile) 
strcafc (RealPathToFile , SolidArray t^SolidArr ay Index] .RealNatne 

); 

SetFileAttributes (RealPathToFile/*SolidArray [_SolidArrayInde 
x] .RealName*/, 32) ; . - 

// first, we clear the attribute, then set the right .one 



_utime (RealPathT6Fiie/"*SolidAr^ 
Name*/, itimes) ; . 

SetFileAttributes (RealPathToFile/*SolidArray t_SolidArray 
Index] .RealName*/, SolidArray [_SolidArrayIndex] .atrib) ; 

__utime (RealPathToFile/ * SolidArray [_SolidArrayIndex] .RealName 
*/, &:times) ; \ 

} . 

} 

} ./ 

int OpenFile (char *Nam, unsigned int date_and_time, unsigned char a 
ttrib) 

{ char : dir [ jyiAX_PATH] ; 
char dir2 [_MAK:_PATH] ; 
char Tmp [_MAX_PATH] ; 
char Name [_M2^_PATH] ; . 

memset(dir2, 0, __MAX_PATH) ; memset(dir, 0, _MAX_JDIR) ; memset(Tmp 
, 0, JM2^_PATH) ; memset (Name, 0, _MAX_PATH) / 
if (extfactionDestination [0] ) 

{ 

strcpy (Name, extractionDestination) ; 

//if (Name [strl en (Name) - 1] != '\\V) strcat(Name, "\\"); 
CheckSlash(Name) ; 

} 

else 
• '{ 

get c wd (Name , JVIAX^PATH ) ; 

//if (Name [strlen (Name) - 1] i= strcat(Name, "\\"); 

CheckSlash(Name) ; 

} 
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strcat (Name , Nam) / 

Split (ISTame, dir, dir2, NULL, NULL) ; 
strcat (dir, dir2) ; 
strcpy(Tmp, dir) ; 
MkDir(dir); 

if (AssumeYes 0) 

{ 

if((F2 = f open (Name, "rb" )) != NULL ) 
f close (F2) ; 

_ sprintf (tmp.^ " Overwrite %s ? (Y) es, (E) nter/ (N) o/ (A) 11/ (C) an 
eel". Name).; 

Printf (tmp, " " , 11) > 

char t = ScanForAchar (tmp, 4) ; 



eak; 
eak; 

eak; 
turn 0; 

} 

} 

// since the file cannot be overwritten if it has a read only atr 
ibute , 

// we must take care and overwrite it anyway, why bother and ask 
the user ? 

SetFileAttributes (Name, 32); // okay, it works okay 
if{(P2 = f open (Name, «wb+" )) == NULL ) Error (0, Name); 
return 1; // ermo 0 



Printf ( " " , 


"\n" ,- 


11) ; 










switch (t) 

{ 

case 
















'A» 


: case 


•a' : 


write_melt = 


1; 


Assume Yes = 1; 


.br 


case 




: case 


'C' : 


write_melt = 


0; 


exit{l); .. 


br 


case 




: case 












case 


« E' 


: case 


'e' : 














case 


13 : 


write_raelt = 


1; 




br 


case 


'N" 


: case 


'n» : 


writejmelt = 


Ox- 




re 



int Check ARH Header (struct ARH Header *Ar) 
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{ 

unsigned int ciroco; 

// must be rewritten, too unsafe ... header may contain garbage d 

if {{unsigned char) Ar->_HeaderCRC 1= OxFA) return 0; 

local_uint_crc( (unsigned char *)Ar, (xmsigned int) (sizeof {struc 
t ARH_Header) - 4 /* without the CRC itself */) , (unsigned int *)&c 
iroco) ; 

if ((unsigned int) Ar'->_UHeaderCRC i= (unsigned int) ciroco) retu 
rn 0 ; 

return 1; // okay I 



int FWrite_ARH_Header {struct* ARH_Header *Ar, FILE *F) 

//we have a header, filled with something . .\ . 
// just add the CRC, and it's on the filel 
unsigned int ciroco; \- 
unsigned char header jmap [_MAX__PATH * 2]; 

unsigned int header_map_len = (unsigned int) (sizeof (struct ARH H 
eader) - 4); /* without the CRC itself */ ~ 

Ar->_HeaderCRC = OxFA; // fill it before it gets random 

memset ( (unsigned char *) &header_map, 0, sizeof (header_map) ) ; 
raemcpy( (unsigned, char *) &header_map, (unsigned char *)Ar, header 
map_len) ; — 

local_uint_crc( (unsigned char *) &header_map, header map len, (uns 
igned int *) &ciroco) ; 

Ar->_XJHeaderCRC = (unsigned int) ciroco; 

if (.Ar->_recoye'ry_Compressed) 

// there must be an error, cause I did not initialized a shit 
on these ! 

//int u = 0; 

//printf (" \n\n\n error damaged file header detected . 

. Ar\n") ; 

//Printf {" \n\n\n error damaged file header detected . 

. .\r% "\ii\n 9) ; 

//Sleep (4444) ; 
//u++; 

} 
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if (fwrite (Ar , 1, sizeof {struct ARELHeader) ^ F) 1= sizeof {struct A 
RHJIeader) ) return 1 ; 
else return 0; 

. } 

int Write_Archive_Header (void) 

{ 

memset ( (unsigned char *) & (ARH__H._Name) ^ 0, sizeof (ARH_H._Name) ) ; 
s trcpy (ARH_H . J^ame , "ULEB106 " ) ; 

//if (Actualizez) ARH_H._SolidN += SolidN; // please re-checkl 
//else 

ARH_H._SolidN = SolidN; // I think' this holds even when updating 



ARH_H._Solida = Solida; 
ARH_H-_yersion = 106; . 
ARH_H»_IjOcked = 0x00; 

ARH_H._SolidaTableSize = Tablelndex; 

'n. . 

... if (ZipCloaking =*= 0) 

■ ■ ' { 

// Okay, befor writting the Header down, we have to fill in the 
CRC I 

// So, we will replace fwrite cu FWrite_ARH_Header 

//if (fwrite (&ARH_H, 1, sizeof (ARH_H) , F2) i= sizeof (ARH_H) ) / 
Error (7, "") ; 

if (FWrite_ARH_Header (&ARH_H, F2}) Error(7, ""); 

} 

else 

{ 

if (Solida == 0) { Printf {" -s [solid mode] required on the coinm 
and line", " 4); exit(O);} 
WriteFirst ZipHeader { ) ; 

} 

return 0; 

} 

int FileSelection(void) 
{ . 

char TmpDirekl [_MAX_PATH] , TmpDirek2 [JMIAX^PATH] , UpdateExitanceFi 
leName [_MAX_PATH1 ; 
\insigned int i, j; 
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cted 1)) write^melt = 0; 

// Chestia de deasupra e ca nu decomprimam fisierele pe care le s 
tergem, la DELETE/UFDATE 

// deci exact ce ne trebuia, adica, pxmem vxi \ \ Extrag i , ^ 
. . . pe care le vom completa 

// noi Deci trebuie selectate toate fisierele care apartin 

de Sursele ... 

// de exeraplu : "program files\" all here are selected 

// if the ""program files\" is in the sursele 

// the single problem is that' the sursele must contain the Archiv 
eFullPath, and if 

// directory to end with a »\\» 

// I don't think I can rely l^nrsoiiciKr" but it "is"setted when enter 
ing the archive ... 

// will have to check if the questioned file is 
// among the MyXtrStructure. Sursele or not 

// nu among the Solid Files, ci among Sursele, and the maximum is 
MaxDirectories ... s 

for(i=p; i < SolidN; i++) SolidArray [i] . selected = (Sterg || Act 
ualizez ? 0 : 1) ; // this will not be decompressed (marked to be de 
leted from queue) 

f6r(j=0; j < MyXtrStructure -MaxDirectories; j++) 

•// okay, so e^ctract a Sursele, add the Pathl or 2 which is now 
the archivePath ... 

// and so on . . . 

memset (TmpDirekl, 0 , sizeof (TmpDirekl) ) ; 

strcpy (TmpDirekl , (MyXtrStructure . Sursele [ j ] . PathiOr2 ? MyXtrSt 
ructure. Pathl : MyXtrStructure . Path2 )) ; 
CheckSlash (TmpDirekl) ; 
strcat (TmpDirekl , MyXtrStructure . Sursele [ j ] .Name) ; 
strlwr (TmpDirekl) ; 

// update patch only 

if (strstr (TmpDirekl, ":\\") != NULL) 
{ 

// the file path is with "DISK:\\", when updating, so this p 

rocedure needs patches, but it is the best 

memset (UpdateExitanceFileName/ 0, sizeof (UpdateExitanceFi 
leName.y); //the name with full path 

strcpy (UpdateExitanceFileName, TmpDirekl); 
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memset (TmpDirek2 , 0 , sizeof (TmpDirek2) ) 
strcpy{TmpDirek2, {char *) STmpDirekl [3] ) 

memset (TmpDirekl, 0, sizeof (TmpDirekl) ) 
strcpy(TmpDirekl, TmpDirek2) ; 

^ memset (TmpDirek2, 0, sizeof (TmpDirek2) ) ; 

if (MyXtrStructure.Sursele[j] .File « 0) s treat (TmpDirekl, "\\") 
; // e directory, add '\\' ' \\ ; 

for(i=0; i < SolidN; i++) 

memset {TmpDirek2, o, sizeof (TmpDirek2) ) ; 
strcpy(TmpDirek2, SolidArray [i] .RealName) ; 
strlwr {TmpDirek2 ) ; 

if {strstr (TmpDirek2, TmpDirekl) ==--TmpDirek2) 
{ V . 

/ / this file must be selected for writing 

// basically it's the other way around, but now we 
are not deleting the file 

// but selecting the 'others to be deleted 
// Bine bine, dar nu fac update pe un fisier, dear ca direc 
torul a fost selectat, ci il sterg doar 

// daca el exista cu .adevarat^ si va fi replaced 

if (Actualizez == 0) 

{ 

// . SolidAtray[i] .selected = (Sterg }[ Actualizez ? 1 

: 0); // this will be decompressed,, but .1 want it deleted now 

else 

{ . 

If {_access(UpdateExit^ceFileName/ o ) == o) //*real path 

here*/ 

• • SolidArray [i] .selected = (Sterg 11 Actuali 

zez ? 1 : 0) ; // so only if exists ... it will be replaced, even if 
the directory is here ... 

} 

if (Myxtrstructure.surseie[j3 .File) goto NextFile; / 
/^a£ter the file is found, no time to w^ste for another file ... ah 

1 
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} . . 

J NextPile : ; // just a j++ 

return O; 

} 

// COMPRESSION USB ONLY 

int read_froni_file{imsigned char *buf, unsigned int siz) 
i Tinsxgned int len, /*ratio,*7 x/ - 
long size = siz, verif ; 

len = f read ( (vmsigned char *)bu^, l, size, Fl) ; 
if ^ (den == (unsigned) (-i) ") | leh 0)"' aa'solida) ' 
len = TotalRead = 0; 

for ( ; ; ) 

{ 

Pclose(Fl, 0, 0); X. 

// 

// Gata aici stergem fisierul 
// 

if (MyXtrStructure.sfx && SolidK) 

char RealPathToFile[_Max_PATH*2] ; 
PathToFile));"'^"'^^^^^'^^^^''^'^ *)RealPathToFile, 0, sizeof (Real 

alNatne); strcpy (RealPathToFile , SolidArray [SolidK- 1] .Re 

^ _unlink(RealPathToFile) / 

if (SolidN == SolidK) 
{ 

if (MyXtrStructxire . sfx) 

// . _rn^^ir(MyXtrStructure.extractionDirectory) ; 

// cleaning up everything :) <=v,u^jj.yy , 

} 

break; 
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sprintf (tmp, "%-69s", short_str (InFile, 69)); 
Print (Repack ? " Repacked " : (ZipCloaking ? « Zipped " • 
» Freezed "), ZipCloaking ? 14 s 3, tmp, 2 n " 

"r 0,-1); . . / . 

memset (InFile,. 0, _MAX_PATH) ; 

strcpydnFile, SolidArray [SolidK] .RealName) ; 

ratio = IntoarceProcent (coxint_start + len, TotalSolidSize 
) ; ^ 

sprintf (titip, "%-60s", short_str {InFile, 60)); 

sprintf {tmp2, « %3d. %d%c" ratio / 10, ratio % 10, '%'); 

. - . . _ Print (Repack ? " Repacking " : (ZipCloaking " z 

ipping " : " Freezing ") , ZipCloaking ? 14 : Y, tmp"'""" " ^ 'o 'V 

Tnp2, »\r% 3, 0, (ratio/lO) ) ; 

TotalSum = SolidArray [SolidK] . size; 

if {(Fl = fopendnFile, "rb" )) === NULL ) Error (0, InFile) 

verif ^ _filelength(fileno(Fl) ) ; 
^ . if (verif I- TotalSum) Error{10, "").; // file size chan 
ged sxnce scanning ill! 

X = fread( (unsigned char *)buf + len, 1, size, Fl) ; 
• len X; 
SolidK++; 

if ((size -= X) <= 0) break; 

} \ ^ 
TotalRead += len; 
^ return (int)len; , . 

// PECOMPRESSION Use Only 

void flush_window (unsigned int Cati) 

// We must avoid the extraction of files which will eventually be 
// deleted, so will put a simple falg to simulate this 1 
// Remember that if a file is selected to be erased --> 
// SolidArray [i] .selected =: l, and write_melt =- 0; 

if (Cati 0) return; 
Solid_CRC = INIT^CRC^VALUE; 

updcre( (unsigned char *)Fereastra, (unsigned int) Cati, &Solid CRC) 
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TotalSum -=Cati; 

if (Solida && (TotalSum < o)) // we have to split the. file 

TotalSum Cati; 
if (write melt) 

{ ~ 

F2); ^''^^^^^t^^ismed char *)Fereastra, 1, (Tonsigned int) TotalSum, 

sprintf {ttnp, " %-64s" , Short " str{InPile, 64))- 
if (Repack ==0) ~ 

0 1). PrintCtmp, 2, " melted", 3, 0, «», -m^ 

^ Fclose(P2, SolidK ? SolidK - 1 : SolidK, 1); 

unsigned long Sum = 0, FileS =0; 
for { ; ; ) 

{ 

if (SolidK >= SolidN) break; 

memset (InFile, 0, _MAX_PATH) ; 

strcpydnFile, SolidArray [SolidK] .RealName) ; 

Files = SolidArray [SolidK] .size; / ^ first file's size 

ro ^^i^f^^^S == 1 II Actualizez == i |.| • Extrag == 1) && (SolidAr 
ray [SolidK] .selected == 1)) . vooiioAr 

- write_melt =0; 

else 

write_melt =1; 

. Soli^riy(SS .aSSff '^^^^-^-y [SolidKJ .ti„e_date 

SolidK++; 

if (Files > Cati - TotalSum - Sum) . 

fwrite ( (unsigned char *)Fereastra + TotalSum 
+ Sum, 1, Cati - TotalSum - Sum, F2) ; 

TotalSum = Files - (Cati - TotalSum - Sum) ; 
break; 

} 

else 

{ 

if (write melt) 

{ 

fwrite ( (unsigned char *)Fereastra + TotalSum + sum, 1, Fi 
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leS, F2); 

sprintf (tmp, " %-64s" , short_str (InFile, 64)); 
i£ (Repack ==0) 

{ 

Print (tmp, 2, " melted", 3, "«i 

, 0, "% 0, -1); ' ' 

} 

} 

Fclose(P2, SolidK ? SolidK - 1 : SolidK, 1) ; 

Sum += Files ; 
} . ■ - 

} . ■; . • 

else 

{ ■ " ■• ■ 

if (write melt) 

{ ■ • 

short ratio = IntoarceProcent (TotalSum, (Solida ? TotalSoli 
dSize : TotalRead) ) ; 

f write ( (imsigned char *)Fereastrax ^> Cati, F2) ; 
sprintf(tmp, "%-63s", InFile) ; 

sprintf (tmp2, "%2d.%d%c", ratio/10, ratio%10, '%'); 
if (Repack == 0) Print (" Melting , 3, tmp, " >> , 3, tmp 

2, "\n", 2, , 0, -1); ' ' f 

} 

} 



void SkipToNext_ZIP (struct ZIP_Header *Head, FILE *u) 

unsigned int x = Head->extra_len; 
while (x--) getc(U); 
^ fseek(U, Head->compressed, SEEK_CDR) ; 

void GotoTheSolidPackedFiles (FILE *U) 

{ char tmpFil [_MAX_PATH] ; ' • . 

rewind (Fl) ; 

if (Uread(&ZlP_H, 1, sizeof (ZIP_H) , Fl) ) != sizeof (ZIP_H) ) Erro 

if {{fread(&tTnpFil, 1, ZIP^H.f ilenamel, Fl) ) i=. ZIP H.filenamel) 
Error ( 1 ,"»'); . "* 
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^ While (X--) getc{U); 

int Read_^ZIP_AKH_Files() 
char tmpPll [_MAX_PATH] ; 
rewind (Fl) ; 

SolidN = TotalSolidSize = o- 
for{;;) 

{ 

UpdateSolidArray (SolidN) / 

memset ( tmpFil , o , sizeof (ttt^Fil) ) . 



if ( (fread{&zip i, sizeof rzipm T " ^, - 

ror{i, ""); ~ «-«-zeor t^ip_H} , Fl) ) != sxzeof (ZIP_H) ) Er 

if (ZIP_H. signature != 0x04034b50} break- 

xf ((fread(&tmpFil, 1, ZIP H.filenamel, Fl) ) .- zip k 1 
) Errord, ""); ~ • f '^IP_H. f ilenamel 

"\. . 

SkipToNext_ZIP(S:ZIP_H, Fl) ; 
TotalSolidSize += ZIP_H. uncompressed; 



check for the time 
^ SoiidN++; 

GotoTlieSolidPackedFiles (Fl) ; 
^ return 0 ; , 

int Xtreme_Archive_(char *name, unsigned int *arhfileno) 

int X .= 0; 
FILE *U; 

if ((U «*f open (name, "rb")) NULL) x = 0- 
else ' 

{ 

if ((fread(&ARH H, 1, sizeof fARHWl riw i - 
=r 0/ - ' / «^-».^eo3HAKH_HJ , U)) 1= sizeof (ARH_H) ) x 

•if {{x = Check_ARH_Header(SARH_H)) i) 

*arhfileno = arh H, SolidN? 
else ^ ^ ' 

^ ^arhfileno = 0/ 

Fclose{U, 0, 0); 



79 



wo 01/50612 



Util 



PCT/USOl/00424 



return x; 

int Read_Archive_Header(char initialize_tables) 

Read__ZIP_ARH_header{) ; 

Solida = ARH_H.__Solida; 

if (Solida && initial! ze_tables) 

Tablelndex = ARH_H._SolidaTableSize; 
^ ReadjustTablesO ; 

return 0; 

} _ 

void SkipToNextFile (FILE *FF) 
rewind (FF) ; 

fseek(FF, header_pos + sizeof (ARH__H) , SEEK_SET) ; 
int CheckStruct (char *P) 

{ 

long u = ftell(Fl), o; ./ 

o = fread(&XTREMB_H, 1, sizeof (XTREM£:_H) , PI); 

read^ J^° > (o == q) ) return 1; // nothing to 

if((o sizeof (XTREME_H) ) && (o) ) Error { 9 , ■"• ) ; // rmabl 

e to read 1 \ ' i t 1 1 uxiaox 

TotalRead = TotalSum = XTREME_H._Sizel»iCotn; 

TotalWrit - XTREME_H._NextFile - -sizeof (XTREME H) - XTREME H 
^^wamijen; ^ "~ — * 

header^os += XTREME_H._NextFile;// + io; // huffman tables, wh 
ich can actually be more and more 

^ /Q^iiP^^"^^^' ^' XTREME_H._NamLen, Fl) ) != XTREME_H._NaniI,en) Er 
ror \ / / / 

Tablelndex = (char) XTREME_H,_Table; 
if (Listez == 0 && Repack == 0) ReadjustTablesO; 

if (TotalWrit<0 || p|:o]==o) 

if (ARH_H._recovery_Filesize == 0) Error (8, »")'; // if we are 
not reading the recovery records 1 
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return 1; 

} 

return 0; 

} 

void Read_ZIP_ARH_header () 
{ unsigned int u; 

char TmpFil t_MAX_PATH] ; 

rewind { Fl ) ; 
u - getw{Fl) ; 

if (u == 0x04034b50) // PK 

. { . ...... 

ZipCloaking =1; 
rewind (Fl) ; 

if { {fread(&ZIP_H, 1, sizeof (ZIP_H) , Fl) ) sizeof (ZIP_H) ) Er 
rord, ""); 

if ( (f read(&:TmpFil, 1, ZIP_H,f ilenamel, Fl) ) ZIP_H.f ilenamel 
) Error (1, ""); 

if { (fread(&ARH_H, 1, sizeof (ARH_H) , Fl) ) i= sizeof (ARH_H) ) Er 
rord, ""); 

} 

else 

if (u == 0X42454C55) // ULEB 
{ 

ZipCloaking 0; 
rewind (Fl) ; 

if ( (fread(&ARH_H, 1, sizeof (ARH^H) , Fl) ) 1= sizeof (ARH_H) ) E 
rrord, »"); 

// now let's check to see that it's quite an Xtreme Archiv 

e 

// I mean Compute CRC and compare I 

if {Check_ARH_Header(&ARH_H) == 0) Error (1, "«); // does no 

t match I 

} 

else Error(l, ""); 

} 

void GetArchiveType (char *archive type) 

{ 

if (Fl == NULL) *archive_type = -1; 
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} 



*archive_type = ARH_H._Solida; 

™f°i^?! =^ ARH_H._SolidaTableSize; 

rewxna{Fl) ; 



_ } 



void DamageProtectorArchive (void) 

tmsigned int U _filelength (fileno(Fl) ) ; 

InitializeProtecti6n{metoda, u, i) ; 
InitializeCorrectionPorFile(Fl, u/l, metoda) 
CpmputeDataRecoveryRecord(Fl) ; 



void RepairArchive (void) 

COMPRESS_RECOVERY_RECORD = ARH_H ._re cover y Compressed- 
// essential, oh my God! ~ 

sizef J?; (ARH_H._recovery_Method, ARH_H.__recovery_File 



da) ; 



InitializeCorrectionPorFile(Fl. ARH_H._recovery_Filesize, o, meto 



Repair (.) ;• 

Fclose(Pl, 0, 0) ; 
^ Fclose(E'2> 0, 0) ; 

void TestRecoveaiYRecord (void) 

if (ARH_H . _recovery_Filesize) 
s oxJi °"tperform a recovery record testing based upon each block' 

COMPRESS_RECOVERY_RECORD = ARH_H . .recovery Compressed; 
// essential, oh my God I 

if (COMPRBSS_RECOVERY_RECORD > 1) 

Error (16, " DLL garbage DATA detected ") - 

// return; 

^ // this is only for the error to be spotted ! ! i 

lesizef''2r; (ARH_H._recovery_Method, ARH_H._recovery_Fi 
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CheckDataRecovery (Fl) ; 

} ^ 
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* - 

* 

* 



* 



Error Correcting Codes (ECC) adding/removing procedures 



Protection at it's best, belive 



* w me 



* 



From Xtreme 106 (DLL) package by Sabih, Belu (a) 



~ * * ' ~ ■ 

* 



7.C DAMAGE PROTECTION TECHNOLOGY 



#def ine NON^CONSECUTIVEJtsTO ^ 
#define PROTECTED_BUFFER_NO xo 
#define PROTECTED_BUFFER_SIZE 8192 

[PJ tNON_CONSECUTIVE_NO] 
[R] 0 1 2 3 4 5 
[O] 6 7 8 .9 10 11 

[^^ " 'x 

r 'x' J J V J J consecutive, but interlaced. . 

N X X X X X X r^T^''^'' ^''^ ^^^^ damaged 

O X X X X X X t"^ ""' ^^"^^^"t^i^l °^ ^ot, the 

^ L^J A X X X X chances are all the same to recove 

XOR_Rez [0] [1] [23 [3] [4] [5J 
*/ 

ipragma pack (1) 
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#include <io.h> . 
#include <stdio-h> 
#include <stdlib.h> 
#iiiclude <string.h> 

#include "crc.h" 
#include "huf fman.h" 
#include "utll.h" 
#include " console. h" 
#include " recovery • h « 
ftinclude "zipheads -h" 

P??:aJ?COVERY^INDEX;_ // 3t..oi(sim_^^ ,//6 -> that, extra header, 
*Ao.),.**"' ■ "AO". "AO", "WVO", "|\o.. 

Char Tmp_[ _Max_PATH] ; 

unsigned short VAR_NON_C0NSECDTIVE NO = 3- 
unsigned short VAR_proteCTED_BUFFER~NO = 5' 
unsigned shprt VAR_PROTECTED_BUFFER_SIZE = 512,' 

imsigned char Table [PROTECTED buppt?t? qt'7t?i ^ 4- j 

COVERY_RECORD = 0; ^■^^^^^^_BUFFBR_SIZE] , metoda = 0, COMPRESS_RE 

unsigned char XOR^Rez [NON_CONSECUTIVE NO] [PROTECTED BUPFPP qtvt:.-! 

s~ . .'■ p;pte=r?r:::=t:?f ° »'°™^<^^^-"°j 

tftrunc; 

- TXiL^l Sector.BadNo, SectorsRepairedNo, FL 

INDEX*/ p^«i-J?°^2^°^' W^s^^Oata = 0, WhereFile/* = DATA RECOVERY 
INDEX*/, PrptectorSize = sizeof (Protector) ; -H^x/i_Kii<-ovERY_ 

void InitializeCorrectionForFilerFlLE *pp ,.t,o-;^„=>^ • . 
protect, unsigned char metodeP unsigned xnt size, char 

if (protect I= 2) 

PrintfCv scanning, please wait ... " 2) ; 
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PLen = size; 

SectorsNo - (FLen / VAR_PROTECTED_BUFFER_SIZE) + 2; 
if (protect == i) 

{ . 
rewind (Fl) ; 

■ ARH__H,_recovery_Filesize ' ="si2:fe;" '"" 

^^_H-_recovery_Method = metodar 

^-^■-^^'^f'^^^-^^'^PrBSSQd = COMPRESS RECOVERY RECORD- 
_SET); ^^^""^^ f3eek(Fl, si2eof(ziP_ii) ^ ZlP_ii.f iien;mel, SEEK 

) ErrorpZ-ifr"''^^'^-^' ^' si-eof {ARH_H) , Fl) I= sizeof (ARH_H) 

if (FWrite_ARH_Header(&ARH H, Fl) ) Error(7, • // r-^^ii-^^ 

has a 4 byte CRC built in! ~ .^^r u , ), // rewritte 

fseek(Fl, DATA_RECOVERy_INDEX, SEEK SET) ; 
^ WhereData = FLen + DATA_RECOVERY_INDEX; 

else 
{ 

fseek(FF, FLen + DATA_RECOVERy_INDEX, SEEK SET) - 
WhereData = FLen + DATA_RECOVERY Iui)EX; ' ~ 
^ fftrunc = ARH_H._recovery_Filesize; ' - 

^ if (protect. 2) Printf {« Scanning complete 2); 

int Writ eProtect Structure (FILE *FF, char flush) 
unsigned int i, k =0; 

i>uf fen [10240] ;//VAR_NON CONSECUTIVE NO * VAR PROTEC 

tS;^™!2 ""^^"^ buffer2 [10240] ;//VAR NON CONSECUTIVE NO * VAR PROTEC 

vervf ! slzf I !^-^<=>N-^ONSECuilVE:NO * si-keofTstruct^itaSco 
very} + sizeof (struct Protect) *2] ; ^uaiieuQ 
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if (COMPRESS_RECOVERy_RECORD) 

memcpyC {unsigned char *)&bufferl[ k ], {unsigned char *)&Protect 
or.n^subsectors, sizeof (unsigned short) ) ; ^^ecu 
k +t= sizeof (unsigned short); 

or *)&t.ufferl[ k ], (unsigned char *)&Protect 

or.n_buffer_size, sizeof (unsigned int) ) ; 
k += sizeof (unsigned int) ; 

for(i=0; i< VAR_NON_C0NSECUTiyE_N0; i++) 

inemcpy( (unsigned char * ) &buf f erl [ k 1, (unsigned char *)&Prote 

ctor . recovery_ [i] . CRC, sizeof (unsigned short) ) ; 

k += sizeof (unsigned" short) i ' " " ~ — 

memcpy( (unsigned char *)&bufferlt k ], (unsigned char *)&Prote 

ctor. recovery_[x] .buffer [0] , PROTECTBD_BUFFER SIZE) ; 
^ k += PROTECTEp_BUFFER_SIZE; ~ 

FPER^Nof'^i+i)" (VAR_NON_CONSECUTIVE_N0 * VAR_PROTECTED_BU 

{- 

metncpy( (unsigned char *)&bufferl[ k ], (unsigned char *)&Prote 
ctor.SubSectorCrc [i] , sizeof (unsigned short) ) ; ' ^^roce 
^ k += sizeof (unsigned short); 

EncodeBuf f er (k, bufferl, buf f er2 , ti) ; 
putw(k, Fl); putw(i, Fl); 
^ if (f write (buff er2, 1, i, Fi) i= i) return 1/ 

else 
{ 

if ( (f write ( (unsigned short*) ^Protector .n subsectors, i sizeof f 
unsigned short), Fl) ) != sizeof (unsigned short)) return 1-' ' 

xf ( (f write ((unsigned int *) &Protector .n buffer size, 1, sizeof ( ' 
unsigned xnt ) , Fl) ) != sizeof (unsigned inE ))ritum l; 

for(i=0; i< VAR_N0N_C0NSECUTIVE_]SrO; i++) 
if t(fwrite( (struct DataRecovery *) &Protector. recovery [il , i s 
iS?n 1 ; ' ^"-^^ 1= sizeof (struct DataRecover;)) rI 

^^signed) (VAR_NON_CONSECUTIVE NO * VAR PROTECTED BU 
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if { (f write ( (txnsigned short *) &:Protecfco-r c;7i>.q«^4.^ r-i 
izeof {iinsidned shorts ^ \ i ^ *^*^J^ueccor . SuhSectorCrc [i] , i, 3 
^ vunsignea sJaort) , Fl) ) 1= sizeof (unsigned short)) return 1; 

return 0; 

} 

int ReadProtectstructure(PlLE *FF, char read) 
{Tonsxgned int i, k=0; 

xmsigued char bufferl [10240] ; 

vinsigned char buf f er2 [10240] ; - 

if (COMPRESS_RECOVERY_RKCORD) 
k = getw(Fl}; i = getw{Fl); 

if (f read (buff er2, ir irFiy-l^iy-Y^tuEE If' ~ " 
pecodeBuffer(k, buffer2, bufferl, &i) - 
k =0; /-«■/, 

. tnemcpy( (unsigned char *)&Protector n snH««of-r^v.« r 
*) e^uf f erl [ Jc ] , sizeof (unsig^eS sho^tT^f " ' ^^"^^^^ ^^^^ 

k += sizeof (unsigned short) ; 

niemcpy( (unsigned char *) SProtector n bi,F<^«r. o-; , 
*)^^ufferl[ k ], sizeof (unsignennt)t7 - ' ^"^^^^^^ ^^^^ 

fc += sizeof (unsigned int) ; 

for(i=0; i< VAR_NON_CONSECUTIVE NO; i++) 

merncpy{ (unsigned char *) ^Protector . recoverv [il CRC n^r..-; 
char *)&buf fen [ k I, sizeof (unsigned shortn^^^ (unsigned 
k sizeof (unsigned short); 

memcpy( (unsigned char *) S:Protecto-r -r^r^r^^rc-*-,, r-i ar^ 
Signed char .,a,uf£erXI Ic J , PROTECT^'BS^Sr^Z^^! ' 

^ fc += PROTECTBD_BUFFER_SIZE; ~ -^-^^Z / 

FPeSo^ (VAR_N01._C0NSECUTIVE_N0 * VAR_PROTECTED_BU 

^ k += sizeof (unsigned short); 

} 

else 

{ 

if { (f read ( (xinsigned short* )&Protector n anV,<==.--i-«.-= 
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If {(fread{{unsxgned int *) &Prptector.n buf f er size, 1, sizeofCu 
nsigned xnt ) , ff) ) != sizeof (unsigned int )) "return 

for{i=0; i< VAR_NON_CONSECUTIVE_NO; i++) 

if ( (f read { (struct DataRecovery *) &Protector. recovery [i] , i s 
ilurlT:'^''^ DataRecovery), FF) ) != sizeof (struct DataRe^over^) ) r 

(unsigned) (VAR_NON_CONSBCUTIVB_NO * VAR PROTECTED BU 

if ( (f read { (unsigned short' * ) &Protector . SubSectorCrc [i] , i si 
zeof (unsxgned short), PP) ) .= sizeof (unsigned short)) retum'l; 

"" "B^SR^NOrreturJf r-^^''^ '' ™ * VAR_PROTECTED 

retuim 0; • 

} 

void ComputeDataRecoveryRecord(FILE *FF) 

unsigned int i, j, totalsize = 0, size=0, p, n, k = 0; 
unsigned int buffer_index = 0/ 
unsigned short SubSectorCRC; 

unsigned int Index [NON_CONSECUTIVE NO] ; } 

memset ( (unsigned char *)&index, 0, sizeof (Index.) ) ; 
memset ( (vinsigned char *) &ReadIn, o, sizeof (Readln) ) • 
SectorsNo=0; ' 

Printf (" Computing data recovery record, please wait ", 3 

I" 

for (i=0; ;i++) 
{ 

if ((i % {VaR_PROTECTED_BUFFER_NO * VAR_NON CONSECUTIVE NO) == 0 

{ • 

if(SectorsNo % 50 == o) printf (".") ; 
for{p=0; p < VAR_NOW_CONSECUTIVE_NO; p++) 

ER gj2E) *) &XOR_Rez [p] , 0, VAR_PROTECTED_BUFF 

memcpy( (unsigned char *) &XOR_Rez [p] , (unsigned char *)&(Re 
adin [p] . Date [0] . buffer [O] ) , VAR_PR0TECTED_BUFFER_SIZE) ; 
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for(j=0; j < VAR_PROTECTED_BUFFER_SIZE; 

XOR_Rez [p] [ j ] ^= Readin [p] .Date [kj .buffer [j J ; 

memset { (Tinsigned char *) &{Protector/* [SectorsNo] */ .recover 
y_[p] .buffer [0] ) , 0, VAR_PROTECTED_BUFFER_SIZE) ; 

memcpy ( (imsigned char * ) & (Protector/* [SectorsNo] * / . recover 
y_[p] .buffer[0]), (unsigpaed char *)&XOR Rez [p] , VAR PROTECTED BUFFE 
R_SIZE) ; - _ « 

local_short_crc ( (unsigned char*) & (Protector/* [SectorsNo] * / 
^recovery_[p] .buffer [0]) , VAR_PROTECTED_BUFFER_SIZE, fibSubSectorCRC) 

^ Protector/* [SectorsNo] */.recovery_[p] .CRC = SubSectorCRC; 

for(n=0, k=0; k < VAR_PROTBCTED_BUFFBR_NO ; k++) " * "" " " 
for (p= 0 ; p < VAR_NON_CONSECUTIVE_NO ; p++ ) 

Protector/* [SectorsNo] */.StibSectorCrc[n++] = Readin [d] Da 
te [k] .CRC; ifJ • a 

Protector/* [SectorsNo] */ .n_s\xbsectors = (unsigned short) (VAR 
_PROTECTED_BUPFBR_NO * VAR_N0N_CONSECUTIVE_NO) ; 

Protector/* [SectorsNo] */.n buffer size = size; 

SectorsNo++ ; 

if (WriteCorrectionTable (FF, 0) ) break; 
i = size = buf fer_index « 0; 

memset ( (unsigned char *) &Index, 0, sizeof (Index) ) ; 
^ memset ( (unsigned char *)&ReadIn, 0, sizeof (Readin) ) ; 

memset ( (unsigned char *)fi:Table, 0, VAR_PROTECTED_BUFFER_SIZE) ; 

n = fread ((unsigned char *)&Table, 1, totalsize + VAR PROTECTS 
D_BUFFER_SIZB >== FLen - DATA_RECOVERY_INDEX ? VAR_PROTECTBD BUFFER 
SIZE - (totalsize + VAR_PROTECTED_BUFFER_SIZE - (FLen - DATA RECOvi 
RY^INDEX) ) : VAR_PROTECTED_BUFFER_SIZE, FF) ; 

size += n; 

totalsize += n; // don't read from recovery record, too l!i 

local_short_crc ( (unsigned char*) Table, VAR PROTECTED BUFFER SiZ 
E,. &SubSectorCRC) ; " "~ 

memcpy ((unsigned char *)& (Readin [buff er^index] .Date [Index [buff e 
r_index] ] .buffer [0] ) , (unsigned char *)&Table, VAR_PROTECTED_BUFFER 
___S I ZE ) ; 

Readin [buff er_index] .Date [ Index [buff er_index] ]. CRC - SubSector 

CRC; 
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Index [buf f er_index] ++ ; 

buffer_index = (bu£fer_index + 1) % VAR_N0N_C0NSECUTIVE_NO; 

if{{ (n != VaR_PROTECTED BUFFER SIZE) && ! ( (i % (VAR PROTPHTPt. 
_BUFFER_NO * VAR_NON_CONSECUtIvE_NO) ~== 0) &Sc i) ) ^^-^^O^ECTED 
^ I ( (totalsize >= FLen - DATA_RECOVERY_INDBX) ) 

for(p=0; p < VARJKrON_CONSECUTIVE_NO; p++) 

FER SIZE);™^"^^^^^'^^^^^'^ °' VAR_PROTECTED_BUF 

memcpy( (unsigned char *)&XOR Rez [p] , (tmsigned char 
eadln[p] .Date [0] .buffer [0]), VAR_PROTECTED_BOTFER_SIZEr; 

for(k=l; k < Index ip] /*VAR_PROTECTED^BUFFER NO*/^^ 
for{j=0; j < VAR_PROTECTED_BUFFER_SIZE; j++) 

XOR_Rez [p] t j ] ^= Readin [p] . Date [k] . buffer [ j ] ; 

r-^ r 1 ^ memset C (unsigned char *)& (Protector/* [SectorsNo] */ .recove 
ry_ [pi .buffer [0] ) , O, VAR_PROTECTED_BXJFFER_SIZE) ; 

meincpy( (unsigned char *)& (Protector/* [sector sNo] */ recove 
S~SIZE)''^^^''^°^^' ^""^^.^^^ *)&XOR_Rez[p], VAR_PROTECTED_BUFF 

local_short_crc ( (unsigned char*) & (Protector/* [SectorsNo] * 
/ .recovery_[p] .buffer [0] ) , VAR_PROTECTED_BUFFER_SIZE, &SubSectorCRC 

^ Protector/* [SectorsNo] */.recovery_ip3 .CRC = SubSectorCRC; 

.for(n=0, k=0; k < VAR_PR0TECTED_BUFFER_N0 / k++) 
for(p=0; p < VAR_NON_CONSECUTIVE_NO; p++) 
Date [k] . CRcr°^^''^°''^*^ [SectorsNo] */ . SubSectorCrc [n++3 = Readin [p] . 

n=0; for(p^O; p,< VAR_NON_CONSECUTIVE_NO; p++) n+=IndexrD] - 
Protector/*s [SectorsNo] */.n_subsectors = n; ' 
Protector/*s [SectorsNo] */.n_buffer size = size- 
WriteCorrectionTable(FF, 1) ; 
SectorsNo++ ;• 
break; 

} 

} 

} 

int ReadCorrectionTable(FILE *FF, unsigned int PSize) 
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f seek(FF, WhereData, SEEK_SET) ; 

if (ReadProtectStructure(FF, WhereData == FLen + DATA RECOVERY IND 
EX)) return 1; . 
WhereData « f tell (FF) ; 

fseek(FF, WhereFile, SEEK^SET) ; 
return 0; 

} 

int WriteCorrectionTable(FILE *FF, char flush) 

WhereFile = f tell (Fl) ; 

f seek (FX, WhereData, SEEK_SET) ; 

WriteProtect Structure (FF, i) ; 



if (WhereFile FLen) return 1; 

WhereData = ftell(Fl); 
fseek{Fl, WhereFile, SEEK_SET) ; 
return 0 ; 

} 

void DeleteHeader (FILE *FF) 
{ 

rewind (FF) ; 

ARH_H._recovery_Filesize =0; 
ARH_H._recovery_Method = 0; 

ARH__H._recovery_Compressed = 0; . • 

if (ZipCloaking) fseek{FF, sizeof {ZIP_H) + ZIP H.filenamel, SEEKS 
ET) ; ~ — 



//if (f write (&ARH_H, 1, sizeof (ARH_H) , FF) !=r sizeof (ARH H) ) Erro 
r{7, ""); 

if {FWrite_ARH_Header(&ARH_H, FF) ) Error (7, ""); // rewritten, has 
a 4 byte CRC built in I 

} 

int WipeCorrectionTables (FILE *FF) 
{ unsigned int trunc; 

.Printf(" Scanning for data recovery records, please wait", " 
"/ 3); 

trunc = ARH__H._recovery_Filesize; 
DeleteHeader (FF) ; 
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Printf(" Removing recovery records 2); 
_chsize{fileno(FF) , trunc) ; // now truncate the file FF (Fl) to 
the requested file size ! 
return 0; 

} 

int CheckDataRecovery (FILE *FF) 

unsigned short .CRCl, i, f, k2 = o, jl = o, pp=0; 
. unsigned char DetectionTable [ PR6tected_BUFFER_SIZE 1, tmp[30]; 

Sectoros = SectorsK = SectorsBadNo = SectorsRepairedNo = o- 
for(;;pp++) ' 

{_." 

f = ReadCorrectionTable (Fl, . FLen) ; 
for(i=0; i < VAR_NON_CONSECUTIVE_NO; i++) 

memcpy( (unsigned char *) DetectionTable, (unsigned char*)&{Pr 
otector . recovery_ [i] . buffer [0] ) , VAR_PR0TECTED_BUFFER_SIZE) ; 

local_short_crc { (unsigned char *) DetectionTable, VAR PROTECT 
ED_BUFFER_SIZE, %CRC1) ; — 

sprint f ( (char*) tmp, «' %02d:%02d pp, i) ; 

if ((unsigned short) CRCl == (tmsigned short) Protector .recover 
y_[i] .CRC) 

{ 

^ if(((jl++) % 2 == 0) && (k2 == 0)) PrintfC'.", 3). 

else 
{ 

Printf ( "Recovery record " 3) ; Printf ( (char*) tmp, " " 
, 11); Printf (" has failed CRC", "\n", 3); 
k2++; 

} 

} 

if(f) break; 

} 

sprintf ( (char*) tmp, " %d k2) ; 

Printf {k2 == 0 ? " All Oki " : (char*) tmp, " 2) ; 

Printf (k2 == o ? " « : « bad recovery records detected", "i", 2); 

retum 0; 

} 
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gned int Size, unsigned short *errorIndex) // returns the subsector 
dameged I 

{ 

unsigned int i, k=0, errors = 0/ 
unsigned short CRCl; 

unsigned char DetectionTable [ PROTECTEDJ3UFFER_SIZE ] ; 
for(i=:0; i < Protector. n_siibsec tors; i++) 

memcpY( (unsigned char *) DetectionTable, (unsigned char *)&Table 
[ (i*VAR_PROTECTED_BXJFFER_SIZB) ] , VAR_PROTECTED_BUFFER_SIZB) ; 

local_short_crc ( (unsigned char *) DetectionTable, VAR PROTECTED 
BUFFER_SIZE, &CRC1) ; ^ - 

if (Protector. S-ubSectorCrcCi] l= CRCl) 

errors = 1 ; 
errorlndex [i] = 1; 

} 

if (errors == 0) 

{ 

sprint f { (char *)Tmp_, "%2d:%02d [%X...%X]", SectorI,i, Sec 
torI*Protector/*s [Sectorl] */ .n_buffer_size + i*PROTECTED_BUFFER SI 
ZE, SectorI*Protector/*s [Sectorl] */.n_buffer size + i*VAR PROTECTE 
D_BUFPER_SIZE) ; ~ ~ 

PrintfC Sector", « «, 3) ; 

Printf (Tmp , " " , 11) ; 
^ Printf (".. has CRC Ok", "I", 3) ; 

^ if (i*VAR_PROTECTED_BUPFER_SIZE >= Size) break; 
return (errors) ; 

} ; . 

void Repair (iinsigned char ;*Table, iinsigned int bad subsector, unsicr 

ned int TableSize) ' 

{ 

char OkData [PROTECTED_BUFFER_SIZE] ; 

char Data EPROTECTED_BUFFER_NO] [PROTECTED_BUFFER_SIZE] ; 

unsigned int i, j, k, non_consecutive; 
unsigned short KCRC; 

non_consecutive = bad_subsector % VARJsrO]Sr_CONSECUTIVE_NO; 

/* primul X = bad_subsectbr % VAR_NON_CONSECUTIVE NO; 

X 
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ctor] 



X 
X 

Mega Sector 

X 
X 
X 
X 
X 



X 
X 
X 



++++++++ 
++++++++ 
++++++++ 
++++++++ 
++++++++ 

++++++++ 
++++++++ 
++++++++ 



<- Subsector 0 
<- Subsector 1 
<- 



BadSector [this is the damaged se 



*/ 



XOR_Rez equ : XOR_Rez [i] Table [i] ; 



for{i«non_consecutive, j = 0; i < Protector/*s [NodelD] */ subsecto 
rsf i+=VAR_NON_CONSECUTIVE_NO, j++) 

memset ( Dat a [ j ] , 0 , VAR_PROTECTED_BUFFER_S I ZE ) ; 
if {i*VAR_PROTECTED_BUFFER_SIZE < TableSize) 

memcpyC (unsigned char *)fi:DataCjl, (unsigned char *)&Tabler 
{x*VAR_PROTECTED_BUFFER_SIZE)] , VAR_PROTECTED_BUFFER_SIZE) / " 

imsigned char XORez [PR0TECTED_BUFFER_SIZE3 ; 

memcpy( (unsigned char*)XORez, (unsigned char*) & (Protector "recover 
y_[non_consecutive] .buffer [0] ) , VAR_PR0TECTED_BUFFER SIZE) ; " 
memset (OkData, 0, sizeof (OkData) } ; " 
for(k=0; k < VAR_PR0TECTED_BUFFER_SIZE; k++) 

for(i=0; i < j; i++) 
{ _ 

if(i != (bad_subsector / VAR_NON_CONSECUTIVE NO)) 
OkData [k] ^= Data [i] [k] ; " 



1 / 6) 



} 



// bad_subsector = 11 

// X = 5 

X = 11 <- dar din Data = 1 = (i 



// 
// 



X = 17 



OkData [k] 



XORez [k] ; 
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// compute a short crc 

local_short_crc { (unsigned char *)03cData, VAR_PROTECTED_BUFFER_SIZ 
E, &:KCRC) ; //pointer to bytes to pump through, number of bytes'^in 
. s[l */ 

if ( Protector/ *s [NodelD] */ . SubSectorCrc [bad_subsector] == KCRC) 

// recopy the affected sub-sector, but only if okay, cause othe 
rwise, all buffer long 

.// might be erased because of a single char wrong 

memcpy( (unsigned char *) SbTable [ (bad_si±)sector*VAR_PROTECTED BUF 
FER_SIZE)], 

(iinsigned char *)S:03cData, VAR_PROTECTED_BUFFER_SIZE) ; 
Print ■ ( " : :\ " " ; 2 ; ' "recovered i " , " , 14 , *" " , »» " , 14 » 
" % 14, -1); 
SectorsRepairedNo ++; 

} 

else Print (" " 2, "lanable to recover " , "!", 4, " 

" 4, " n, " 0, -1); 

} 

void Repair 0 
{ int A = 0; 

unsigned short Errorlndex [ NON_CONSECUTIVE NO * PROTECTED BUFFER 
NO ]; - - - 

Printf (" Searching for bad sectors ... " 2) ; 
Sectoros = SectorsK SectorsBadNo = SectorsRepairedNo =0; 

for ( ; ; ) 
{ 

if (ReadCorrectionTable (Fl , FLen) ) break; 

memset (Errorlndex, 0 , sizeof (Errorlndex) ) ; 

memset ( (unsigned char *)&Final, 0, sizeof (Final) ) ; 

fread ((unsigned char *)&Final, 1, Protector .n_buffer_size, Fl) 

WhereFile = ftell(Fl); 

if (DamageDetected( Final, SectorsK, Protector .n_buffer_size. Err 
orlndex) ) 

{ 

for (int ko=0; ko < Protector .n_subsectors; ko++) 

if (Errorlndex [ko] == i) 
{ 
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SectorsBadNo++ ; 

sprintf ((char *)Tmp_, "%d:%d [%X,,.%X1", SectorsK, ko 
, Protector. ii_buffer_size*SectorsK + ko*PROTECTED_BUFFER_SIZE, Px 
otector.n_buff er_si2e*SectorsK + (ko+1) *VAR_PROTECTED_BUFFER_SIZE) ; 
Printf(" Sector " 3); 

Printf (Tmp , " " , 11) ; 

Printf{" has failed CRC", " »' , 3) ; 

^ Repair (Final, ko, , ^Protector .n^buffer^size) ; 

else 
{ 

sprintf { (char *)Tmp_, "%d:%d [%X...%X]", SectorsK, ko 
, Protector .n_buffer;;:;sdze*SectorsK + ko*PROTECTED_BUFFER_SIZE, Pr 
otector.'n_buffer_size*SectorsK (ko+1) *VAR_PROTECTED_BUPFER_SIZB) ; 
Printf { " Sector " , " " , 3 ) / 

Printf (Trap , " 11); 

Printf (" has CRC Ok I " 3); 

} 

} 

^f write (Final, 1, Protector .n__buffer_si2e, F2) ; 

else fwrite (Final, 1,; Protect or. n_buffer_size, F2) ; 
Sector sK++; 

} ; - 

Printf (" Done detecting t)ad sectors ", "i", 3); 

if (SectorsK == 0) { Printf (" There was an error : could not rea 
d the recoveary record, aborting repairing", "I", 12); return; } 

if (SectorsBadNo 0) ' Printf {" No Sectors is damaged, aborting 
repairing", "1"/ 3); 
else 

{ . • • • . 

char Tl [100] , T2 [100] / T3 [100] / 

sprintf (Tl, "%d", SectorsBadNo); sprintf (T2, "%d", s 

ectorsRepairedNo) ; . 

sprintf {T3, "%d%c", (SectorsRepairedNo * 100) / SectorsBadW 
o, •%•); 

sprintf (Tii^_, "%d«, (SectorsRepairedNo + 1) / 2) ; 
Printf (Tl, " li) ; 

Printf (" damaged s^Jbsector (s) reported,", " 3) ; 

Printf (T2, " ", id) ; 

Printf (" repaired "[", 3); 
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Printf (Tmp_, " 11); 

PrintfC" Kbytes],", " 3) ; 
Printf {T3, "\n" , 11) ; 
^ Printf ( " successfully" , " I " , 3 ) ; 

DeleteHeader {F2) ; 
Fclose(P2, 0,0); 

_chsize{fileno(F2) , f f trunc) ;: // ensure the file has the desired 
size 1 

} 

void InitializeProtection (unsigned char met, unsigned int size, cha 
r action) 

{ - . .-. .. 

switch (action) 
{ 

case 2: Printf (" Testing recovery records", ".", 3); return; b 
reak; 

case 1: Printf {" Protecting using", " 3); break; 
^ case 0: Printf (" Recovering using", " 3); break; 

//DATA_RECOVERy_INDEX = ZipCloaking ? 

// sizeof (ARH_H) + sizeof (ZIP_H) + ZIP H; fil 
enamel 

// : 0; //sizeof (ARH__H) ; //6 -> that extra h 

eader 

WhereFile ^ 0; //DATA_RECOVERy__iNDEX; 

switch ( (metoda = met)) 
{ 

case 0: VAR_NON_CONSECUTIVE_NO = 3; 

VAR_PROTECTED_BUFFER_NO = 5 ; 
VAR_PROTBCTED_BUFFER_SIZE =512; 

Printf {" 0 level protection", 11);//, "[", 2, "3' 

out of 5", 2, "] ! ", 2) ; 
break; 

case 1: VAR_NON_CONSECUTIVE_NO = S\ 
VAR_PROTECTED_BUFFER_NO = 7j 
VAR_PROTECTED_BUFFER_SIZE = 512, 
Printf (" 1st level protection", ".", 11);//, 2, 
"5 out of 7", 2, "] I «, 2) ; 
break; 
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VAR_PROTECTED_BUFFER_SIZE ^ 512; 

Prinfcf(" 2nd level protection". 11),-//, «r" 9 

7 out of 11", 2, "] ! % 2); ' ' 

break; 

case 3: VAR_NON_CONSECXJTIVE_NO = 11; 

VAR_PROTECTED_BUFFER_NO = 21/ 
VAR_PROTECTED_BUFFER_SIZE = 512; 

Printf{" 3rd level protection", ".», 11);//, » [» n 
11 out of 21", 2, "1 i ", 2) ;r ' ' 

break; 

} 
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it-k-k-kierk-k-k-k** 
* 

* The very SOLID stuff xtremly useful procedures 

k 

* 

* From Xtreme 106 (DLL) package by Sabin, Belu (c) 1999 
* 

* 

********************************************* 
***********/ 

#pragma pack (1) 

#include <io,h> 
#include <stdio.h> 
#include <string.h> 
#include <conio . h> 
#include <direct.h> 
#include <malloc .h> 
#include <f cntl .h> 
#include <sys/stat .h> 
#include <windows • li> 

#include " ere . h" 

#include "util.h" 

#include " solid -h" 

#include "trees .h" 

# include "markov.h" 

#include "deflate.h" 

#include " console. h" 

#pragma pack (1) 
#include " exports . h" 
ttinclude " zipheads . h" 

ttinclude "c : \progra-l\micros-2\myproj :-l\xtremeall\xconsole\interf .h 



#pragina pack (1) 

//it must have the pragma pack 1 here .... 

^declspec ( dllexport ) int GetSolidArchiveFileList (char *archive_n 

ame, struct XConsoleLista *archive_name_list) ; , 
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SolidFileType *SolidArray = NULL; 
•SolidFileType *SolidArray2 = NULL; 

int SolidList 0, Default = 13; 

unsigned int Solid_ALLOCATED = 3 000; 

unsigned long TotalSolidSize; 

unsigned int SolidK = 0, SolidN = 0, Solid__CRC; 

extern struct TableData conf iguration_table [6] ; 

int SolidlnitO 
{ 

if (SolidArray == NULL) SolidArray = (struct SolidFileType *)ma 
. Hoc (sizeof (struct SolidFileType) *Solid_ALLOCATED) ; 
Solid_CRC INIT_CRC_VALUE; . * 
return 0; 

} 

int cdecl Sol idCompare (const void *a, const void *b) 

{ 

char Namel [_MAX_PATH] ; 
char Name2 [_MAX_PATH3 ; 

if ( i ( (struct SolidFileType *) a) ->ext [0] && ! ( (struct SolidF. 
ileType *) b) ->ext [0] ) 

{ 

strcpy (Namel, ((struct SolidFileType *) a) ->RealName) ; 
if (strchr (Namel, '\\ ' ) ) 

{ 

_splitpath (Namel, NULL, NULL, Namel, NULL); 
} 

strcpy {Name2 , {(struct SolidFileType *) b) ->RealName) ; 
if (strchr (Name2, '\\')) 
' { 

_splitpath(Name2, NULL, NULL, Name2, NULL); 
} 

return stricmp (Namel, Name2) ; 

} 

else 

if (stricmp ( ( (struct SolidFileType *) a) ->ext, ( (struct Solid 
FileType *)b)->ext) == 0) 

{ 

strcpy (Namel, ( (struct SolidFileType *) a) ->RealName) ; 
if (strchr (Namel, » \\ » ) ) 
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} 

strcpy (Name2 ^ ((struct SolidFileType *)b) ->Reallsrame) ; 
if ( strchr (Name2 , • \\ ' ) ) 
{ 

_splitpath(NaTne2, NULL, NULL, Name2, NULL) ; 
} 

return stricmp (Namel, Nanie2) ; 
} 

else return stricmp (( (struct SolidFileType *)a)->ext, ( (str 
uct SolidFileType *)b)->ext); 

} 

void UpdateSolidArray (unsigned int SolidKa) 
{ 

if (SolidKa > Solid_ALLOCATED - 10) 
{ 

Solid_ALLOCATED 2000; 

SolidArray = (struct SolidFileType *) realloc (SolidArray, 

jmsize (SolidArray) + (2000 * sizeof(stru 

ct SolidFileType) ) ) ; 

if (SolidArray == NULL) 
{ 

printf ("No memory for registering %d more files", Solid_A 

LLOCATED) ; 

exit(O); 

} 

} 

} 

void SolidFillTheName (imsigned int J, char *name, unsigned int size 
iinsigned long time__date, unsigned char atrib) 

{ 

char drive [jy[AX_DRIVE] ; 
; • char dir [_MAX_DIR] ; 

char f name [_MAX_FNAME] ; 
char ext [_MAX_EXt] ; 

_splitpath(nanie, drive, dir, fname, ext ); 
UpdateSolidArray ( J) ; 

memset ( SolidArray [J] • RealName , 0 , _MAX_PATH) ; 
strcpy (SolidArray [iJ] .RealName, name) ; 

SolidArray [J] . size = size; 

SolidArray [J] .time__date = time_date; 
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SolidArray[J] .atrib = atrib; // to compress 

TotalSolidSize += size; 
memset {SolidArray [J] . ext , 0, 18 ) ; 
^ if (ext [0]) strncpy (SolidArray [J] .ext, (char *) &ext [1] , 18); 

int Sol id_Register_Files (char *Director). 

{ : , 
struct _fiiaddata_t Block; 

char TmpDir [_MAX_PATH] , Tmp t_MAX_PATH] , f name"- [ MAX FNAMEl , 

ext [_MAX_EXT] , Coco [200] ; - 

char drive [_MAX_DRIVE3 , dir [_MAX_piR] ; 

char f name2 [_MAX_FNAME] , ext2 [_MAX_EXT] ; 

long ' " iDbne; " " 

ComplexSpl it (Director, drive, dir, fname, ext); // cred ca acest 
ComplexSplit imi face directoarele cu lower 1 I I 
memset (Director, 0, sizeof (Director) ) ; 
s treat (Director, drive) ; 
strcat (Director, dir) ; 

strcat (Director, "*.*»); // deci avem extensie la directoare 
ca de exmplu : XtremeDLL.aOS 

s trcpy ( ext , ".*"); * 

if ((Done = _findfirst (Director, &Biock) ) == -IL) { Error (12, Di 
rector); return 0; } //no files* *. 
do{ 

if ( (Block. attrib & 0x10) == 0x10) 

memset (TmpDir, 0, sizeof (TmpDir) ) ; 

strncpy(TmpDir, Director,. "strlen (Director) - 3/*strlen(fn 
ame) - strlen (ext) */) ; 

strcat (TmpDir, Block. name); 
strcat (TmpDir, "\\") ; 
strcat (TmpDir, fname); 

strcat (TmpDir, ext) ; 
if (strstr (TmpDir, ".\\") == NULL) 

if (Recurs iv) 

{ 

strcpyCTmp, TmpDir); 
Tmp [strlen (Tmp) -3] = O; 
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sprintf (Coco, "%-36s", short_str (Tmp, 35)); 
Printf(" Scanning sub -directory 3) ; 

Pr int f ( Coco , " \r " , 2 ) ; 

Solid_Register_Files (TmpDir) ; 

} 

} 

} 

else 

_splitpath (Block. name, NULL, NULL, fname2, e3Ct2) ; 
if (Verify (fname2, fname, strlen(fname2) , strlen (fname) ) 
Verify{ext2, ext, strlen{ ext2) > strlen( ext) ) ) 

'"InemsetTTmpbir, 0, sizeof (TmpDir) ) ; 
St rncpy (TmpDir, Director, strlen (Director) - 3/* *.* str 
len (fname) - strlen (ext) */ ) ; 

strcat (TmpDir, Block. name) ; 

if (Block. size) 

{ 

SolidFillTheName (SolidN+-i-, TmpDir, Block, size. Block, t 
ime__write, (unsigned char) Block. attrib) ; // don't register zero len 
gth filei 

} 

} 

} 

}while (_f indnext (Done, &Block) == 0); 

_f indclose(Done) ; 
return 1; 

} 

void Sol idExtr act (void) 
{ 

int uu ftell(Fl) ; 

SolidK = 0; . 
memset (InFile, 0, JVIAX^PATH) ; 
strcpydnFile, SolidArray [0] .RealName) ; 
TotalSum = SolidArray [SolidK++l .size; 

if((Sterg 1 | 1 Actualizez 1 j j Extrag == 1) (SolidArra 
y[0] .selected 1)) write_melt = 0; 
else write melt =1; 
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if (write_melt) OpenFile (InFile, SolidArray [0] .time_date. Solid 
•Array [0] .atrib) ; 
inflateO; 

} 

int SolidMelt (void) 
{ 

SolidlnitO; 

if (Read_Solid_Header ( ) ) return 1; 
SolidExtract ( ) ; 
return 0; 

} 

void Register_File_List (char *FileMask) _ .... 

"{ char File [_MAX_FNAME] ;" 

char ext [_MAX_EXT] ; 

char Surs [_MAX_PATH3 ; 

memset (Surs, 0, sizeof (Surs) ) ; 
strcpy(Surs, FileMask) ; 
if (Recurs iv) 

{ - 

Print (" Jtoalyzing directory 3, short_str (FileMask, 49 

),.'"'", 2, "\n", 0, 0, -1) ; 

;• memset (File, 0, _MAX_FNAME) ; 

memset(ext, 0, _MAX_EXT) ; 
■ ' _splitpath (FileMask, NUIiL, NULIj, File, ext) ; 

if (File [0] « 0 H exttO] == 0) 
{ 

if (Surs [strlen{Sxirs) - 1] != 'W') strcat( Stirs, "\\"); 
strcat (Stirs, ".*.*"); 

} :. 

else Printf ( " Analyzing " , 3) ; 

Solid_Register_Files (Surs) ; 



void Register_Single__File (char *f ull_f ilename) 

{ 

int fh, result; 
struct _stat buffer; 

if ( (fh = _open(full_f ilename, _0_RDONLY, _S_IREAD) ) != -1 ) 
{ 
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result = (int) (_f ilelength(fh) ) ; 
_fstat(fh, (struct _stat *)&buffer); 

if (buffer •st_size) // only if size is non zero please I 
{ 

SolidFillTheNaTne{SolidN++, full_f ilename, jDuf f er . st^size, bu 
f f er . st^mtime , 

(\insigiied char) (GetFileAttribufces (f 

ull_f ilename) ) ) ; 
} 

__close(fh) ; 

} 

} 

void SolidFreeze(cliar *iFileMask) . 
{ 

char Surs [jyi2^_PATHl ? 

char Theatre [_MAX_PATH + _M2\X_PATH] ; 
unsigned int ik; 

Solidlnit (); 

SolidK = 1; SolidN = 0; TotalSolidSize = 0; 

memset (Surs, 0, sizeof (Surs) ) ; 
strcpy(Surs, FileMask) ; 

// 

// The RealName and Archive Name strategy is 'xtremely* go 
od. We can basically read from 

// any directory (since we have two different paths in our 
interface), and, that's 

// the most interesting of all, we can even create fake dir 
ectories inside the archive 

// like the UC2»s 'Archive directory' It will be imple 

mented in ADD, and then 

//I would like to get rid of that awef ul (but usefull, till 
now) SolidArray2 . Thank you 

for(ik=0; ik < MyXtrStructure.MaxDirectories; ik++) 

{ * 

memset (Theatre, 0 , sizeof (Theatre) ) ; 

if (MyXtrStructure.Surselelik] .PathlOr2 ? 

MyXtrStructure . Pathl [0] : 

MyXtrStructure . Path2 [0] ) 

{ 

strcpy (Theatre , (MyXtrStructure . Sursele [ik] . Pa 
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thlOr2 ? 

MyXtrStructure . Pathl : MyXtrStruct 

ure . Path2 ) ) ; 

CheqkSlash (Theatre) ; // if ( (strlen (Theatre) ) 
&& (Theatre [strlen (Theatre) - 1] 1= '\\')) strcat (Theatre, "\\"); 

} 

strcat (Theatre/ MyXtrStructure. Sursele [ik] .N^me) ; 

if (MyXtrStructure . Sursele [ik] , File) Register_Singl 
e_File (Theatre) ; // if file size is not zero I 

else Register_File_L»ist (The 

atre) ; 

}-. • ~ ■■ ' ■ ■"" 

if(Recursiv) PrintfC Directories scanned. 

"\n\n", 3); 

if (SolidN) 

if(Recursiv) Printf(" J^alysing "\n", 3) ; 

sprintf (tmp, "%d", SolidN) ; 

PrintC Sorting", " ", 3, tmp, " ", 14, SolidN > 1 ? "fi 
les ... " : "file.", "\n", 3, "", "", 4, -1) ; 

qsort ( (struct SolidFileType *) SolidArray, (int) SolidN, sizeo 
f (struct SolidFileT3npe) / SolidCompare) ; 

Printf (" Freezing solid header "\n 3) ; 

if (Write_Archive_Header ( ) ) return; 

if (Write_Solid_Header ( ) ) return; 

sprintf (tmp, «'%s'", short_str ( FileMask /*Sursa [01 .Name*/ , 6 

5)); 

PrintC" Freezing files", " ", 3, tmp, "\n", 2, "", «", 0,. "", 
"", 0, -1) ; 

PackFile (SolidArray [SolidK-1] .RealNarae, SolidArray [SolidK 

-1] .size) ; 

} 

Write_Solid_CRC 0 ; 

} 

int TestSolidArchive{void) 
{ 
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' unsigned long CatAre = _f ilelengtb{_f ileno (Fl) ) ; 
unsigned long Undere =0; 

Solidlnit 0 ; • 

if (Read_Solid_Header 0 ) return 1; 

SolidK = 0; 

memset ( InFile , 0 , _MAX_PATH) ; 

strcpy (InFile, SolidArray [0] . RealName) ; 

TotalSum = SolidArray [SolidK++] .size; // first file's size 

for{; Read_Block() ==0;) 
{ 

Undere = ftell{Fl); 
" ratio = IntoarceProcent (Undere/ CatAre) ; 

sprintf (tmp, "%35d.%d%c", ratio / 10^ ratio % 10, '%'); 

Print (" Testing solid archive", " 2, Destination, " 3, t 
tnp, "\r", .2, "", 0, (ratio / 10)); 

if(restbits > 8) break; 

} 

sprintf (tmp, "%-56s", " ") ; 
if (TestedOk) 

{ 

. Printf (" Solid archive is Ok i", "\n", 2); 
//Print ("", 2, 3, tmp, "\n", 2, "", 0, -1); 

. Printf (" ", "\n", 2); 
sprintf (tmp, " %d", SolidN) ; 

Print(tmp, " 10, " files processed. " , "\n", 2, 0, 

0, -1); 

} 

else 

{ . • 

Printf (" "\n", 2) ; 
Printf '(" Solid archive seemes to have BAD CRC I", "\n", 2) 

r 

Error (2, ""); 

} 

return 0; 
} • 

int UpdateSolidArchive(char *files, char _to_solid_or_normal) 

char temporaryFilename[_MAX_PATH] , temp E__iy[AX_PATH] ; 
unsigned int i. Res =0, j, ToReplace =0; 
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if {Read_Archive_Header{l) ) { Error (11, ""); return 1; } 
Solidlnit {) ; 

if (Read_SolidJSeader ( ) ) return 1 ; 

Print (" Scanning for f reezed" , " 3, files, 2, " " 

3, "% 0, -1); 

FileSelectionO ; 

SolidArray2 = (struct SolidFileType *)malloc ( (SolidN + 3) * sizeof 
(struct SolidFileType)); 
if {SolidArray2 == NULL) return 1; 

for(i=0, j.= 0; i < SolidN; i++) 

: .{ _ 

if (SoiidArrayCi] .selected 1) 

ToReplace++; // easier, isn't it ? 
else 

{ 

Res++ ; 

memcpy( (unsigned char *) S:SolidArray2 [j++] , (unsigned char *) 
&SolidArray [i] , sizeof (struct SolidFileType) ) ; 

} ^ : . ■ 

sprint f (temp, " %d files will be replaced.'!, ToReplace) 
Printf (temp, "\n", 2); . 

if (ToReplace < SolidN) 
{ 

GetTemporaryDirectory (extractionDestination) ; 

Print ( " Extracting to temporary directory , " ' " , 3 , . extractipnD 
estination, "",2, " «, o, "", 0, /-l), ; 

SolidExtract () ; 

} 

Fclose(Fl, 0, 0); Fclose{F2, 0, 0) ; \ 

Print (" Deleting previously packed files, " 3, files, 2, 

HI 1.^ ,.lf^ 0, "", I'", 0, -1); 

for{i=0; i < SolidN; i++) 

{ 

if (SolidArray [i] . selected) 
{ 

char tmp2 [_MAX_PATH] ; 

sprintf {tmp2, " %-63s" , short_str (SolidArray [i] .RealNam 

e, 63)); 
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Print (tmp2, 2, " deleted", " 3,"", "", 0, "% 0/ 

-1); 

} 

} 

SolidN = 0; 

f or (\msigned int ik=0; ik < MyXtrStructure .MaxDirectories; ik++) 
{ 

inemset (temp, 0 , sizeof (temp).;) ; 

strcpy(temp, (MyXtrStructure. Sursele [ik] .PathlOr2 ? 

MyXtrStructure . Pathl : MyXtrStructure . Path2 ) ) ; 

CheckSlash(teTnp) ; 

strcat (temp, MyXtrStructure. Sursele [ik] .Name) ; 

if (MyXtrStructure . Sursele [ik] . File) Register_Single_File ( tepap)_ ; 
' // if file size is not zerol 

else Register_File_Iiist (temp) ; • 

} 

// maybe if SolidN == 0 to return 1; 

for(i=0; i < SolidN; i++) SolidArray [i] . selected = 0; 
for(i=0; i < Res; i++) 

{ 

UpdateSolidArray (SolidN) ; 

memcpy( (unsigned char*) ScSolidArray [SolidN] , (unsigned char*)&So 
lidArray2 [i] , sizeof (struct SolidFileType) ) ; 

SolidArray [SolidN] .selected =2; // files that need extra addi 
tioni 

SolidN++; 

} 

if {SolidArray2) f ree (SolidArray2) ; 

if ( Great eTemporaryAr chive (extractionDestination, temporaryFilename 
) ) return 1 ; 
SolidRePack (SolidN, extract ionDestinat ion, 1) ; 

Printf(" Deleting temporary files", 3); 

for(i=0; i < SolidN; i++) 

{ // please do not delete the line with === 2, cause this will move 
files to archive 1 

if (SolidArray [i] .selected 2) _unlink_path (SolidArray [i] .RealN 
ame, 1) ; 
} 

Fclose{Pl, 6, 0); Fclose(F2, 0, 0); 
Get CurDir (temp) ; 
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if (strstr (Destination, ":\\") == NULL) strcat (temp. Destination); 
else strcpy (temp. Destination); 

_unl ink ( temp ) ; 

rename (temporaryFilename/ temp) ; 
retura 0; // everything went okay I 

} 

int SolidDeleteFiles (char *f) 

{ 

char temp [_MAX_PATH] , temporaryFilename E_MAX_PATH] ;. 
unsigned int i. Res = 0, j; 

SolidlnitO; 

if (Read_Solid_jHeader () ) return i; 
for{i=0; i < SolidNT; i++) 

{ 

if (SolidArray[i] .selected == 1) Res4-+; // easier, isn't i 

t ? 
} 

sprintf (temp, " %d file(s) will be deleted.". Res); 

Print f ( tenip , " \n " , 2 ) ; 
if (Res =¥0) return 1; 
if (Res != SolidN) 
{ 

GetTemporaryDirectory (extractionDestination) ; 

Print (" Extracting to tempora£y directory "<", 3, extractionD 
estination, 2, 0, "", 0, -1); 

SolidExtractO ; 

} •■ 

FGlose(Fl, 0, 0); Fclose(F2, 0, 0) ; 

Print (" Deleting the requested files, 3, f, 2, " 

0, "", 0, -1); 

for(i=0; i < SolidN; i++) 
{ 

if (SolidArray [i] .selected) 

{ - 

char tmp2 [_MAX_PATH] ; 

^printf (tmp2, " %-63s" , short_str (SolidArray [i] -RealNara 

e, 63)); 

Print (tmp2 , " " , 2 , " deleted" , " " , 3 , " " , " " , 0 , " " , " » , 0 , 
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-1); 

} 

} 

if (Res I» SolidN) 
{ 

SolicaArray2=r (struct SolidFileType *)Tnalloc ( (SolidN + 1) * sizeo 
f (struct SolidFileType)); 

if (SolidArray2 == NULL) return 1; 
for{i=0, j=0; i < SolidN; i++) 

{ .. . 

if (SolidArrayCil .selected ==0) 

{ 

raemcpyC (struct SolidFileType *) &SolidArray2 [j++] , (struct. So 
lidFileType*) &SolidArray[i] , .sizeof (stjTuct SolidFileType)); 

} ^ 

for(i=0; i < j; i++) 
{ 

meTncpy( (struct SolidFileType*) &SolidArray [i] , (struct SolidF 
ileType*) &:SolidArray2 [i] , sizeof (struct SolidFileType) ) ; 



if ( Great eTemporaryArchive (extractionDestination, teinporaryFilena 
me) ) return 1; 

SolidRePack( j , extractionDestination, 0); 

Printf(" Deleting temporary files", "\n", 3); 

for(i=0; i < SolidN; i++) _unlink_path (SolidArray [i] .RealName, 

1); 
} 

Fclose (Fl, 0,0); 

if (ZipCloaking) // ???? 
{ 

for(i=0; i < SolidN; i++) . 
{ 

memcpy( (struct SolidFileType*) &:SolidArray[i] , (struct SolidFi 
leType*) &SolidArray2 [i] , sizeof (struct SolidFileType) ) ; 

Write_Solid CRC(); 

} 

Fclose (F2, 0,0); 
//GetCurDir (temp) ; 
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//s treat (temp. Destination); // not good anymore .... 
GetCurDir (temp) ; 

if (strstr (Destination, "r\\") ==s NULL) strcat (tempr Destination); 
else strcpy (temp. Destination); 

_iml ink (temp) ; 

if (SolidArray2) free (SolidArray2) ; 
if (Res == SolidN) return 0; 
rename (temporaryFilename, temp) ; 
return 0; // all went okay 1 

} 

void SolidRePack (unsigned int maxim, char *frpmWhere, .char ^update) 

{ ■ • 

char temp [_MAX_PATHl ; 
unsigned int i; 

SolidN = maxim; SolidK = 1; TotalSolidSize =0/ 

gsort ( (struct SolidFileType *) SolidArray, (int) SolidN, sizeof(str 
uct SolidFileType) , SolidCompare) ; 

if (Write_Archive_Header ( ) ) return; 
if (Write_Solid_Header ( ) ) return; 

Printf(" Repacking files»', " \n" , 3); 

for(i=0; i < SolidN; i++) 

{ 

if((_update == o ) [j {_update == 1 && SolidArray[i] . selected 
== 2)) 
{ 

memset (temp, 0, _MAX_PATH) ; 
strcpy(temp, fromWhere) ; 
strcat (temp, SolidArray [i] .RealName) ; 
strcpy (SolidArray [i] .RealName, temp) ; 

} 

TotalSolidSize += SolidArray [i] .size; 

} 

PackFile (SolidArray [SolidK-l] .RealName, SolidArray [SolidK- 1] .size) 

i 

} 

int Read_Solid_Header (void) 

{ struct Solid_XTREME__Header SolidXTREME_H; 

unsigned int Sizes = 0, x= sizeof (SolidXTREME^H) , Sin, Sout, X 
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unsigned char *Undefined, *Undefined2; 
xinsigned short crcl, crc2, rezult = 0; 

if (ZipCloaking) return {Read_ZIP_ARH_Files () ) ; 

SolidN = getw{Fl); 
TotalSolidSize =0; 

sprintf (tmp, " Melting solid header [%d files] SolidN); 
Print f (tmp, " 3) ; 
InitializeMarkovStatesO ; 

X = (sizeof (struct Solxd_XTREME_jaeader). + .^MAX_PATH). * SolidN; 
memory_request_alloc (unsigned char. Undefined, X); 
memorY_request_alloc (unsigned char, Undefined2, X); 

if (Undefined == NULL || Undefined2 « NULL) return 1; 
memset (Undefined, 0, X); 

if (fread(&crcl, sizeof (crcl), 1, Fl) < 1) Error (6, ""); 
if (fread(&Sout/ sizeof (Sout) , 1, Fl) < 1) Error (6, ""); 
if (f read (Undefined, 1, Sout, Fl) 1= Sout) Error{6, ""); 
MarkovDecode (Sout , Undefined, Undefined2, fibSin) ; 
local_shoft_crc (Undefined, Sout, &crc2) ; 
if ((unsigned short) crcl == (unsigned short) crc2) 

Printf(" Result : [CRC Ok] " , "\n", 3); 
for (tins igned int i=0; i < SolidN; i++) 

{ 

UpdateSolidArray (i) ; 
// .. if(i % (SolidN / 23 0 ? 1 : SolidN / 23) 0) 

Printf ("."/ 15) ; 

memcpy (&SolidXTREME_H, (unsigned char*) fcUndef ined2 [SizeS] , 

X) ; 

memset (InFile, 0, _MAX_PATH) ; 

memcpydnFile, (unsigned char*) &Undefined2 [SizeS + x] , Soli 
dXTREME_H. JSTamLen) ; 

Sizes X + SolidXTREME^H. JSTamLen;- 
TotalSolidSize +== SolidXTREME_H,_SizeUnCom; 
SolidFillTheNamed, InFile, SolidXTREME_H._SizeUnCom, Solid 
XTREME_H._TiTne^Date, SolidXTREME_H. Atrib) ; 
} • 

rezult = 0; 
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Priiitf(" Result : [CRC Failed]", "\n", 3) ; 
rezult = 1; 

if (Undef ined2 1^= NULL) { f ree (Undef ined2) ; Undefined2 = NULL; } 
if (Undefined l== NULL) { f reejUndef ined) ; Undefined = NULL; } 
De_Init_Buf {) ; // Deinitialize Markov States 

if (rezult == 1) 
{ 

Error (6, " Solid header _ seems little. bit damaged • • . 

); "* * 
return 1; 

} 

return 0 ; 

} 

int Write_Solid_Header (void) 
{ short ratio; 

unsigned char ^Undefined, *Undefined2; ;■. . 

struct Solid_XTREME_Header SolidXTREME_H; :* 

unsigned int SizeS = 0, x = sizeof (SolidXTREME_H) , Sout, X; 

unsigned short crc; 

char TmpFile [_MAX_PATH3 , tmpp[3 00]; 

if (ZipCloaking) return 0; // no need for another zip header, here 



putw(SolidN, F2) ; 

InitializeMarkovStatesO ; // initialize the Markov model 

X = (sizeof (struct Solid_XTREME^Header) + _MAX_PATH) * SolidN; 

memory_request_alloc (unsigned char. Undefined, X); 

memory_request_alloc (unsigned char/ Undef ined2, X); 

if (Undefined == NULL || Undef ined2 NULL) return 1; 

meraset (Undef ined, 0, X) ; 

for (unsigned int i=0;i<SolidN;i++) 

SolidXTREME_H._TimeJDate = SolidArray [i] .time_date; 
SolidXTREME_H._SizeUnCom = SolidArray [i] . size;. 
SolidXTREME H. Atrib = SolidArray [i] .atrib; 



else 

{ 
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SolidXTREME^H, JSrOT_USEDl « 32; 
SolidXTREME_H._N6T_USED2 =32; 

memsetdnFile, 0, _MAX_PATH) ; 
memset (TmpFile , 0 , jy[AX_PATH) ; 
strcpy (InFile , SolidArray [i] .RealName) ; 

strcpy (TmpFile, (char *) &InFile [strstr (InFile, ":\\") ? 3 

: 0]); 

SoliclXTREME_H.JSraTaLen = .(strlen (TmpFile) ) ; 

memcpy( (unsigned char*) &Undefined [Sizes] , &SolidXTREME_H, x) ; 
memcpy( (unsigned char*) &Undef ihed[SizeS + x] ^ TmpFile, SolidX 
TREME_H._NamLen) ; 

S i zeS ' + = " x" + Sol i dXTREME_H . ^NatnLen ; 

MarkovEncode (Sizes,- Undefined, Undefined2, &:Sout) ; 
local_short_crc(Undefined2, Scut, &crc) ; 

if (f write (&crG, sizeof(crc), 1, F2) < 1) Error (5, "") 

if (fwrite(&Sout, sizeof (Sout) , 1, F2) < 1) Error(5, "") 

if (f write (Undefined2, 1, Sout, F2) < Sout) Error (5, "") 

ratio = IntoarceProcent (Sout, Sizes); 

sprintf (tmpp," Solid header freezed E%d.%d%c]«, ratio / 10, ratio 
% 10 ' % * ) ; 

if (Repack == 0) Printf(tmpp, "\n", 2); 

if (Undef ined2 1= NXJLIi) { f ree (Undef ined2) ; Undefined2 = NULIi; } 
if (Undefined I = NULL) { free (Undef ined) ; Undefined = mJLL; } 
De__Init_Buf ( ) ; // Deinitialize Markov States 
return 0; 

'} 

int Write_Solid_CRC(void) 
{ char T[30] ; ' 
short ratio; 

ratio = IntoarceProcent (TotalWrit, TotalSolidSize) ; 

sprintf (T, "%3d.%d%c", ratio / 10, ratio % 10, '%'); 

Printf(" Updating solid archive header.", "\n", 3); // for CRC I 

if (ZipCloaking) 

WriteZipHeaders (&TotalWrit) ; 

Print (" Solid archive ratio"., " " , 3 , T, " " , 2 , « " , " " . 0, « " , 

/ 0, -1); 

Printf("\n", 0); 
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return 0; 

} 

* BEGIN : This function is only for DLL export use only. Do not t 
ry it inside the DLL. 

*********** if* *'kicicie'k******'ie*'ki:'k*ie'k*ie'k***'k9eiiefr*fi*ic* 
***ic**-k************* / 

int GetSolidArchiveFileList (char *archive_name, struct XConsoleList 
a *archive_name_list) 

{ . 

int Rez = 0; ..... ^ 

unsigned int k; 

int ii sizeof (struct XConsoleLista) ; 

if((Fl fopen{archive_jiaiiie, "rb+")) == NULL)' return !; 
if {Read_Archive_Header (0) ) return 1; // the zero parameter does 
not allow memory allocation . . . 
Solidlnit () ; 

if {Read_Solid_Header ( ) ) Rez = 1 ; 
Fclose(Fl, 0, .0) ; 

// now for the 0 SolidN-1 will just copy the files and that's 
all. - 

for(k=0; k<SolidNr; k++) 
{ 

' memset ( (unsigned char *) & (archive_name_list [k] ) , 0 , sizeof (str 
uct XConsoleLista) ) ; 

strcpy {archive_name_list [k] .Name, SolidArray [k] .RealName) ; 
archive_naTtie_list [k] .FSize ^ SolidArray[k] .size; 
archive_name_^ist [k] -DateTime = SolidArray [k] .time_date ; 



return Rez ; ' 

} 

/********************* **********ie*'k*********'k*ic***** ******** ****'/(** 
******************** 

* END : This function is only for DLL export use only. Do not tr 
y it inside the DLL. 

*****************ic**ie'k*****'k***************il[ir-k*********f:ie'k*ie-k**'k** 

********************y 

int SolidListFiles (char *files) 

{ 
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char f ilesl [ JVIAX^PATH] ^ dirl [_MAX_PATH] , extl [_MAX_PATH] ; 
char f iles2 [_MAX_PATHl r dir2 [_MAX_PATH] , ext2 [_MAX_PATH] ; 
unsigned int i. Res =0; 

tmsigned long compressed all = 0, uncompressed all = f ilelenqth (f i 
leno(Fl)); 

Solidlnit {) ; 

if (Read_Solid_Header()) return 1; // this function is perfect. It 
f illes up a structured array, ready to be printed out 

sprintf (tmp, " Name %54s %10s %s", "Original", "Compressed", "Rat 
io"); 

sprintf {tmp2, " ' 

. , . ^ ~ 

PrintfCtmp, "\n", 3) ; 
Printf{tmp2, "\n", 15); 

Split {files [0] 0 ? »t*^*„ . files, NULL, dirl, filesl, extl) ,- 
for(i=0; i < SolidN; i++) 
{ 

Split (SolidArray[i] .RealName, NULL, dir2, files2, ext2) ; 

if ( Verify (files2, filesl, strlen (f iles2) , strlen (filesl) ) & 

Sc 

Verify{ext2, extl, strlen ( ext2) , strlen( extl)) & 

( (strstr {dir2, dirl) == dir2 && ( Recurs iv) } |I 
( (stricmp{dir2, dirl) == 0) && (Rec'ursiv ==0)) || 
files [0] == 0 )) 

{ 

Res++; 

sprintf (tmp, " %-49s", short str(SolidArrayU] .RealNam 

e, 49) ) ; 

sprintf {tmp2, "%lOd", SolidArray [i] .size) /, 
compressed_all += SolidArray[i] .size; 
Printf (tmp, " 2); 

Printf(tmp2, "\n», 3) ; 

} 

sprintf ( tmp2 



sprintf {tmp, " %d ", Res) ; 

memset (filesl, 0, sizeof (filesl) ) ;meraset (files2 , 0, sizeof (f iles2) 
) ;memset (dirl, 0, sizeof (dirl) ) /memset (dir2 , 0, sizeof (dir2) ) ; 
Sprintf BigNumber (dirl, compressed_all) ; sprintf (filesl, " %60s 
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din) ; 

- Sprint fBigNumber(dir2, uncompressed_all) /sprintf (f iles2, " %10s 
dir2) ; 

ratio = IntoarceProcent {\mcompressed_all, compressed^all) ; 
sprintf (extl, "%3d.%d%c«, ratio/10, ratio%10, '%'); 

Printf {tmp2, 15); 

Printf (filesl, 3); // files sizxe imcompressed 

Printf (files2, 3); // file size compressed 

Printf (extl/ "\n% 3); // file ratio then \n ^ 

Printf (tmp, lO) ; // 5 

Printf (»^fileCs) .% ^»\n", 3); // files processed! 

return 0; 

} 
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•ferk-k-k'k-M'kitit'k'k 
* 

* 

* Trees compression/decompression procedures 



Dynamic Markov / Dynamic Huffman / XXXAri 

* 

From Xtreme 106 (DLL) package by Sabin, Belu (c) 1999 



* 

*********************************************************** 

***********/ 
#pragma pack (1) 



^ ..#include 


<stdio -h> 


#include 


<stdio .li> 


# include 


<string.h> 


#include 


" crc.h" 


#include 


"util.h" 


#include 


"huffman.h" 


# include 


" solid -h" 


# include 


"trees .h" 


#include 


"markov.h" 


#include 


" console. h" 


# include 


"deflate.h" 


#include 


"Contextual 



struct Huff_Block Huffman; 

unsigned int CRC, Huf fmanBlockCRC; 

unsigned char maska, flag, restbits; 
unsigned short D_REST_BITS; 

unsigned short bits_buf; // Output buffer, bits are inserted s 
tarting at the bottom (least significant' 

short bits_len; // Number of valid bits in bi_buf . A 

11 bits above the last valid bit are 0. 



#define PutW(c) PutC{(c » 8) & OxOOff).; \ 
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PutC{(c » 0) & OxOOf f ) ; \ 

#define GetCO getc(Fl); // if used somewliere else remember this 
; TotalWrit I I I I 

#define GetW(c) c=0; \ 

c=GetC ( ) ; \ 
c«=8; \ • 

c|=GetC(); 
TotalWrit-=2; 

// this array is used to get only the liumber of the required bits, 

static unsigned short BJMASK[] = _ . ... 
{ 

0x0000, 0x0001, 0x0003, 0x0007, 
OxOOOf, OxOOlf, 0x003f, 0x007f, 

OxOOff, Oxdlff, OxOBff, OxOVff, OxOfff, Oxlfff, OxSfff, 0x7fff, 
Oxffff 

}; 

void Tree_Start { ) 
{ 

flag = 0; 
maska = 1 ; 
restbits =0; 

BitBufC =0; . • 

LitBuf C = LenBuf C = DistBuf C = RestBuf CI = RestBuf C2 = DistBuf C 

= OU; 



) 



bits_buf =0; 
bits_len = 0; . . 

} 

#define MARKOV_TYPE 0 
#define HUFFMANJTYPE 1 
#define CONTEXTUAL_TYPE 2 
#define BLOCK_TYPE^C0MPRESSI0N CONTEXTUAL_TYPE 

int FrozenBuffer (unsigned int len, unsigned char *Bufferu, char typ 
e_of_block) 

^ if (fwrite(&len, sizeof(len), 1, F2) < 1) Error(3, ""); 
updcrc{ (unsigned char *)Bufferu, (unsigned int) len, &:CRC) ; 

// 
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/ / need a call on the fiinction for a better update of the mess 
age 

//in the window, because it just freezes and it's not quite ok- 

// 

// 

Print (" Frosting blocks, please wait " 3, " " " , 2, 
0, 0, -1); 

switch (type_of_block) 
{ 

case HUFFMANJTYPE : EncodeBuf f er (len, Bufferu, OutBuf, S:OUt 

count) ; breaks- 
case MARKOV_TYPE : . MarkovEncode (len, Buf f eiu, . .DutBuf , - &oufc . . 

count) ; ' break; 

case COISTTEXTUAL^TYPE : ContextualEncodeBuf f er (len, Bufferu, O 

utBuf , &out count) ; break; 

} 

if (outcount < len) 

if {fwrite(&outcount, sizeof (outcount) , 1,. F2) < 1) Error (3, " 

"); 

if {fwrite (OutBuf , 1, outcount, F2) < outcoxint) Error {3, " 

"); 

TotalWrit += outcount + 2*si2eof (len) ; 

} 

else 

if (fwrite (&len, sizeof(len), 1, F2) < 1) Error{3, " 

"); 

if (fwrite (Buff em, 1, len, F2) < len) Error (3, " 

"); 

TotalWrit += len + 2*sizeof (len) ; 

} 

return (outcoixnt < len) ; 

} 

void MeltBuffer( unsigned int *len, unsigned char *Bufferu, char Typ 
e, char type_of_block) 

if (freadden, sizeof (*len) , 1, Fl) < 1) Error{4, "«); 

if ( f read C&out count, sizeof (outcount) , 1, Fl) < 1) Error (4, "«); 

if (f read (Bufferu, 1, outcount, Fl) i=: outcount) Error(4, ""); 
int u= ftell(Fl) ; 
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if (outcount > LITBUF + 1000) 

Error (4, "");// access violation here, requesting help 
// it will exit anyway, so you do not have to do an emerg 
ency exit - • . • 

} 

TotalWrit-= outcount + 2*size9f (len) ; 
unsigned int last_out = *len; 



if (Type) 

{ 



switch { type__6f ^block) 

case HUFFMAlTjrYPE : DecodeBuf f er (*len, Bufferu, OutBuf, 

&outcount) ; breaks- 
case MARKOy^TYPE • : MarkovDecode (*len, Bufferu, OutBuf, 

S:Out count) ; breaks- 
case CONTEXTUAIi_TYPE : ContextualDecodeBuf f er ( *len, Bufferu 

, OutBuf , S:Outcount) ; break; 

updcrc ( (unsigned char *) OutBuf, type_of_block ? outcount : (un 
signed int) last_out , SiCRC) ; ' 

memcpy (Bufferu, OutBuf , type_of_block ? outcount : last_out) ; 

else 

updcrc ( (unsigned char *) Bufferu, (unsigned int ) outcount , &:CRC) 

7 

} ■ . 

void Sencl_Block(char end_of_b'lock) 

{ • • 

unsigned int i; 
unsigned long Wherel, Where2; 
int u= ftell(F2) ; 

if{maska !=: 1) BitBuf [BitBuf C++] = flag; 

CRC = INIT_CRC_JVALUE; 
Wherel - ftell(F2); 

TotalWrit+=si2eof (Huffman) / // everything that's in the archive m 
ust be counted I ' 

if (fwrite (&Huf fman, 1, sizeof (Huff man) , F2) i= si zeof (Huffman) ) 
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Error {3, 

Huff man. _Blockjrype_0 = FrozenBuf f er (BitBuf BitBuf, BLOCKJT 

YPE_COMPRESSION) ; 

Huff man. _Block_Type_l = FrozenBuf f er (LitBuf C, LitBuf, BLOCK_T 
YPE_COMPRESSION) ; 

Huff man. _Block_Type__2 = FrozenBuf f er (LenBuf LenBuf, BLOCKJT 

YPE_COMPRESSION) ; 

Huff man. _Block_TYpe_3 = FrozenBuf f er (DistBuf C, DistBuf, BLOCKJT 
YPE_COMPRESSION) ; 

Huff man. _Block__Type_4 = FrozenBuf fer {RestBufC2, RestBuf2, BLOCKJT 
YPE_COMPRESSION) ; 

if (DJREST_BITS > 8) 

• { ' . 

for (i = 0; i < RestBufCl; i++) send_bits (RestBuf 1 [i] , (D_RE 
ST_BITS - 8) ) ; 

updcrc ( (unsigned char *)RestBufl, (unsigned int)RestBuf CI * 2, 
&CRC) ; 

} 

Huff man. _RestBits = restbits + (end_of_block == 1.? 9 : 0); 
Huf fman._CRC_total == CRC; 

Where2 = ftell{F2); 
fseek(F2, Wherel, SEEK_SET) ; 

if (f write (SJIuff man, 1, si zeof (Huffman) / F2) != sizeof (Huf fmaiiH 
Error (3, "") ; 

fseek(F2, Where2 , SEEK_SET) ; • * 

bits_f lush ( ) ; 
Tree^Start ( ) ; 

} 

int Read_Block() 
{ unsigned int i; 

unsigned short Value; 

int u= ftell (pi) ; 

// it should have been only for the debug procedures , . . 

if (f read(&:Huf fman, 1, sizeof (Huffman) , Fl) 1= s i zeof (Huffman) ) E 
rror (4, "") ; 

restbits = Huf fman._RestBits; 
Huf fmanBlockCRC = Huff man. _CRC_total; 
CRC - INIT_CRC_VALUE; 

MeltBuf f er ( &BitBuf C, BitBuf , Huff man ._Block_Type_0 , BLOCK_TYP 
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E_COMPRESSION) ; 

MeltBuffer (&IiitBufC, LitBuf, Huff man. _Block_Type_l, BLOCK_TYP 
E_COMPRESS±ON) ; 

MeltBuffer {S:LenBufC, LenBuf, Huff man. _Block_Type_2 , BI,OCK_TYP 
E_COMPRESSION) ; 

MeltBuf fer (&DistBufC, DistBuf^ Huff man. _Block^Type_3 , BLOCK_TYP 
E_COMPRESSION) ; 

MeltBuffer (&RestBufC2, RestBuf2, Huffman. J3lock_Type_4 , BLOCK_TYP 
E_COMPRESSION) ; 

RestBufCl- « RestBufC2 = DistBufC; 

u= ft ell (Fl) ; 

if (D_REST_BITS > 8) 

{ • • • - " * ~ 

GetW{bits_buf ) ; 
bits_len = 16; 

for (i = 0; i < RestBufCl; i++) 
{ 

Value = 0; 

get_jDits (&Value, (D_REST_BITS - 8), bool(i < RestBufCl - 1)) 
RestBufl[i] = Value; 

' } 

updcrc ( (unsigned char *)RestBufl, (unsigned int) RestBufCl * 2, 
. &CRC) ; 

} 

else memset ( (unsigned char *)RestBufl, 0, sizeof (RestBuf 1) ) ; 

LitBufC = LenBufC = DistBufC = RestBufCl = RestBufC2 = DistBufC 
= OU; 

u= ftell(Fl) ; 

if (CRC 1= Huf fmanBlockCRC) 
{ 

if(Testez == 0) Error (2, " "); 
TestedOk =0; . . 

return 1; 

} 

if (Testez == 0) Printf (" Melted OKI "\r", 3).; 
return 0; . 

} • 

int Tree Encode (int distance, int len) 

{ ~ 

restbits = ( (restbits + 1) % 8) ; 
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if (distance) 

{ 

distance 

DistBuf [DistBufC++] = (distance » D_REST_BITS) & OxOOff ; 
RestBufl [RestBufCl] = distance & B_M2^K[D_REST_BITS] ; 
RestBuf 2 [RestBuf C2] = (unsigned char) (RestBufl [RestBufCl] » 
(D_REST_BITS - 8)); 

RestBuf 1 [RestBuf CI] B_MASK [ (D_REST_BITS - 8)]; 

// ex: D_REST_BITS=10 ==> P_REST_BITS -8=2 

// ==:> deplasatn cu D_REST_BITS -8 = 2 pentru a obtine primii 
8 biti alt char! 

RestBuf C1++; RestBuf C2++; 
if (len < 255) LenBuf [IienBuf C++] =len; 
else _ 
{ LenBuf [LenBuf C++] = (unsigned char) (255); // marker 
LenBuf [LenBuf C++] = (unsigned char) (len); 

LenBuf [LenBuf C++] = (unsigned char) ((len >> 8) & OxOOff); 

} } 

else 

{ 

flag 1= maska; 

LitBuf [LitBuf C++] = len; 

} : . 

if ( (maska <<= 1) == 0) // deja 8 ? 

{ 

BitBuf [BitBuf C++] = flag; . 

flag =0; . . 

maska =1; • 

} 

if (LitBuf C > LITBUF - 8 | | LenBuf C > LITBUF - 8 ] | DistBuf C > LI 
TBUF - 8 I I RestBufCl > LITBUF - 8 | | BitBufC > LITBUF - 8) 

{ / . 

Send_Block ( 0 ) ; 

} 

return 0; 

} 



void Tree Flush () 
{ . " 

if (LitBuf C II LenBuf C || DistBuf C) Send_Block (1) ; 
Solid_CRC = INIT_CRC_VALUE; 

updcrc ( (unsigned char *)Fereastra, (xinsigned int) string_starting, 
&:Solid_CRC) ; 

} 

void send_bits (unsigned short value, short length) /* value to sen 
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d , number of bits */ 

if (bits_len > 16 - length) // let's try with 32 and a real put 

w() 

{ 

bits_buf <<= 16 - bits_len; 

bits_buf += value >> (length - (16 - bits_len) ) ; 
PutW(bits_buf ) ; 

bits_buf « (unsigned short) (value & B_MASK [length - (16 - 
bits_len) ] ) ; 

bits_len += length - 16; 

} 

else 

— bifsjDuf «^ length; //.'the easiest way to send is when 
bits_buf += value; // the bits number lies within the 
bits_len += length; // 16-bit boxindaries. 

} . • 

void get^bits (unsigned short *value, short length, bool ok) /* val 
ue where to get , number of bits, contor */ 
{ 

if (bits_len length) 
{ 

*value = bits_buf >> (bits_len - length) ; 
if (bits_len - length ~ 0 ok) • 
{ 

GetW(bitsjDuf ) ; 
bits_len = 16; 

} 

else 
{ 

// " 

bits_buf = bitsjDUf & Bjy[ASK[bits_len -length]; // 000 0 

00 0 I 000 001 1 I 00 

bits_len ~= length; 

} 

} 

else 

{ 

*value =s bits_buf; 

GetW(bits_buf ) ; 

*value <<= length - bits__len; 

*value 1= bitsjDuf » (16 - (length - bits_len) ) ; 
bits_len = 16 - (length - bits_len) ; 

bits buf = bits buf & B MASK[bits_len] ; // 000 000 0 | 000 
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001 1 I 00 

} 

} 

// Send the rest of the word, when the compression ends and there i 
s 

//no other way to fill it up. 
void bits_f lush (void) 

{ ' 

// strange but first this resolved a bug, then created others I I ! 
// if (bits_len) // don't waste 2 byte if there is nothing to put 

! 

//the same condition as with the other bits : if (bits__len) is not 
enough I 

if (D_REST_BITS > 8) ' 
{ 

bits_buf <<= (unsigned short) (16 - bits_len) ; // f 

ill it till 

PutW(bits__buf ) ; 

} - 
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/************************************************************* 
*********** 
* 

* 

* Non solid stuff but still useful procedures 
* 

* 

* 

* From Xtreme 106 (DLL) package by Sabin, Belu (c) 1999 
* 

* 

* ■ ' 

*^**************************************************************** 

***********/ 

#pr agma pack ( i ) 

#iiiclude <io.li> 
#include <stdio,h> 
#include <string-h> 
#include <conio-h> 
#include <memory-h> 
#include <string.h> 

#include <dos.h> 
#include <direct.h> 

#include "util.h" 
#include "trees -h" 
#include " solid. h" 
^include "m.arkov.h" 
#iiiclude "deflate.h" 
#include "console .h" 
#include "nonsolid. h" 

int Write_Fake_Header (void) // for non solid operations 
{char TmpFil[jyEAX_PATH] ;* . 

header_pos =ftell(F2); 

.strcpy(TmpFil, (char *) S:InFile [strstr (InFile, ":\\") ? 3 : 0] ) ; 
XTREME_H._NamLen = strlen(TmpFil) ; 

if (f write (&XTREME_H, 1, sizeof (XTREME^H) , F2) 1= sizeof (XTREME_H 
) II f write (TmpFil , 1, XTREME^H.JSTamLen, F2) != XTREME^H.JSTatnLen) 

{ . 
Error (7, "") ; 
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return 1; 

} 

return 0; 

} 

int Write_Real_Header(FII.E *F) 
{ 

rewind (F) ; 

fseek (F, header_j)OS, SEEK^SET) ; 

XTREMB_H,_SizeUnCom = TotalSum; 
XTREMB_H-_Time = 0, 

XTREME_H._Date = 0^ 

XTREME_H._FileCRC =0, _ 
" • • XTREME_H • _Table " =" TaBlelndeii; 

XTREME_JI._NextFile = TotalWrit + sizeof (XTREME_H) + XTREiyiE_H, 
NamLen; 

f write ( &XTREME_H, 1 , sizeof {XTREME_H) , F) ; 
fseek (F, OL^ SEEK_END) ; 
return 0; 

} 



void PackFile (char *name, unsigned int size) 
{ char TmpFile[_MAX_PATH] ; 
unsigned long verif ; 

mems e t ( TmpF i 1 e , 0 , JMAX_PATH) ; 
strcpy (TmpFile, name) ; 

strcpy (InFile, TmpFile) ; 
if(Solida == 0) Write_Fake_Header 0 ; 
TotalRead = TotalWrit =: 0; 
TotalSum - size; 

if (Repack 0 j | Solida 0) ReadjustTables () ; //TotalSum 

if ((Fl = f open (TmpFile, "rb" )) NULL ) Error (0, TmpFile); 

else 

{ 

ver.if = _f ilelength(f ileno(Fl) ) ; 

if (verif != size) ErrordO, »"); // file size changed sine 
e scanning 111! 

initialize_engine (5) ; 
deflate 0 ; 

} 

Fclose(Fl, 0, 0); 
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if (Solida == 0) 
{ 

sprintf (TmpFile, "%-60s" , short_str (InFile, 60)); 

Print (Repack ? " Repacked" : " Freezed", « 3, TtapFile, "\n" 

Write__Real Header (F2); 

} 

} 

void Freeze (char *FileMask, char repack) 

char tmp [_MAX_PATHl ; 
unsigned int i / 

Solidiriit ( )' ;"■ SolidN ="'0;" " . ' 
Register_File_List (FileMask) ;* 

if (Repack == * 0) 
{ 

Printf { " Scanning complete • " , " \n" , 3 ) ; 

sprint f (tmp, "%s •%s'", short_str (FileMask,. 56), (Repack ? " Re 
packing files " : " Freezing files ")); 
".Printf ( tmp , " \n " , 2 ) ; 
};.\ 

if CSolidN) 
{ - . 

if (repack == 0) Write_Archive_Header () ; 
for(i-0; i < SolidN; i++) 

PackFile(SolidArray [i] .RealName, SolidArray [i] .siz 

e) ; 

) • - ' 

void Me.ltFileO 
{ 

char FileN [_MAX_PATH] ; 
char tmp [ JMAX_PATH] ; 

if (Read_Archive_Header (1) ) { Error (1, ""); return; } 
TotalRead = TotalWrit =0; 
memset (FileN, 0, jy[AX_PATH) ; 

AssumeYes = 0; // once given, does not mean for all the archives, 
nu ? 
if (Solida « 0) 
{ 
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} 



while ( ! CheckStruct (FileN) ) 

{ 

if (FileN [0]) 
{ 

if (OpenFile (FileN, o, 32)) // normal attribute 
{ 

memset ( InFile , 0 , _MAX_PATH) ; 
strcpydnFile, FileN) ; 
inf late () ; 
Fclose (F2, 0, 0) ; 

} 

} 

memset (FileN, 0, MAX PATH); 
} " ~ 

} . . •■ ■ 

else 

{ 

int liu = f tell (Fl) ; 
SolidMeltO; 

sprintf (tmp, "%d files processed,", SolidK) ; 
PrintfCtmp, 10); 

} 



int TestFrostedFiles {) 
{ char FileN [jy[AX_PATH] ; 

unsigned long CatAre = _f ilelength (_f ileno (Fl) ) ; 

unsigned long Undere = 0, Errors = 0; 

if (Read_Archive_Header (1) || CatAre 0) { Error (1, ""); exit{0) 
' } 

memset (FileN/ 0, _MAX_PATH) ; 
if (Solida O) 
{ 

while ( ! CheckStruct (FileN) ) 
{ 

TestedOk = 1; 
if (FileN [0]) 
{ 

Printf{" Testing", " " ,3) ; 

Printf (FileN, "\n" , 2) ; 

for {;Read_Block() == 0;) 

{ 

Printf {" Testing", " 3); 

Printf (FileN, "\a 2) ; 
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if{restbits > 8) break; 

} 

sprintf (tmp, " %-70s", FileN) ; 
if (TestedOk) 
{ 

Printf (ttnp, " 2); 
Priiitf(" OK", "\n", 3); 

} 

else 

{ 

Printf(tmp, " 2) ; 

Printf C failed", " \n" , 12); 

Errors++ ; 

■ } ^ : " 

memset (FileN, 0, _MAX_PATH) ; 

} 

} 

else Errors = TestSolidArchive () ; 
return (Errors + 7) ; 

} 

int DeleteNonSolidArciiive (char *files) 

char f ilesl [_MAX_PATH] , dirl [JXIAX^PATH] , extl [__MAX_PATH] ; 
Char f iles2 [jyiAX_PATH] , dir2 [_MAX_PATH] , ext2 [_MAX__PATH] ; 
Char temp [jy[AX_PATHl , tempf ile [_MAX_PATH] ; 
char FileN [_MAX_PATH1 ; 
unsigned int o, dels = 0, k; 

memset (FileN, 0, _MAX_PATH) ; 
GetTemporaryDirectory (tempf ile) ; 
strcat (tempf ile, . "xtremly.tmp") ; 

if { (F2=:f open (tempf ile, "wb+")) == NULL) return 1; 

Printf ( " Deleting " , " ' " , 3) ; Printf (files, "\n« , 2) ; 
Printf(" Creating temporary archive ", 3); Printf (tempf ile, 

2); 

Split(files, NULL, dirl, filesl, extl) ; 

Printf (" Scanning for packed 3); Printf (files, "\n", 2) ; 

• if (Read_Archive_Header(l) ) { Error(l, ""); exit(O); } 
else 

//if ( (f write (&ARH__H, 1, sizeof (ARH_H) , F2)) 1= sizeof (A3^_H) ) 
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return 1/ // writes the first header 

if {FWrite_AI^_Header (5Aim_H, F2)) return 1; // rewritten, has 
a 4 byte CRC built in 1 

} 

while { I CheckStruct (FileN) ) 
{ 

if * (FileN[0] ) 
{ ' 

Split(FileN, NULL, dir2, files2, ext2) ; 

if (Verify (files2, f ilesl, -•'■strlen(f iles2) , strlen (f ilesl) ) 

Verify{ext2, extl, strlen( ext2) , strlen( extl) ) && 

( (strstr {dir2, dirl) === dir2 (Recursiv )) || 

(stricmp (dir2, dirl) == 0 && (Recursiv == 0)))) 
{ • 

- ■ Printf(» Deleted" V " r 2) ' * * 

Printf (FileN, "\n", 3); // just erase the file by 

skiping it 

SkipToNextFile (Fl) ; 
dels++; 

} 

else 
{ 

if ( (f write (&XTREME_H, 1, sizeof {XTREME__H) , F2) ) 1= sizeof (X 
TREME_H) ) •• return 1 ; 

if ( (f write (FileN, 1, XTREME_H._NamLen, F2) ) !=r XTREME_H 

.._NamLen) , return 1 ; 

c = f tell (Fl) ; 

for(;;) 

{ 

if({k = getc(Fl)) == EOF) Error (9, ""); // unexpected END 
-OF -Archive. . . 

putc (k, F2) ; 

if. {C++ >= {header__pos + sizeof (ARHJH).) - 1) break; 
c = f tell (Fl) ; 

} 

} memset (FileN, 0, _MAX_PATH) ; 

} 

Fclose(Fl, 0, P); 
Fclose (F2, 0,0); 

sprintf (temp, " %d file(s) deleted.", dels); 
Printf (temp, "\n", 2 ); 

Printf (" Deleting temporary files ", " 2); 
if (dels) 
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//GetCurDir (temp) ; 

//strcat {temp. Destination); 

GetCurDir (temp) ; 

if (strstr (Destination, ":\\") == NULL) strcat(temp. Destination) 

7 

else strcpy (tempr Destination); 

_iml ink { temp ) ; 
rename (tempfile, temp); 

return 0; // archive has just been changed I 

} 

else 

_un'link(tempf ile) ; // nothing to replace 
return 1; 

} 

return -1; 

} 

void NonSolidListFiles (char *files) 

{ char f ilesl [_MAX___PATH] , dirl [_MAX_PATH] , extl [_MAX_PATH] ; 
char f iles2 [_MAX_PATH] , dir2 [_iyiAX:_PATH] , ext2 [_MAX_PATH] ; 

char FileN[_MAX_PATH] ; 
unsigned int FileK=0; 

memset (FileN, 0, _M2^_PATH) ; 

sprintf (tmp, " Name %55s %10s %s", "Original", "Compressed", "Rat 
io«) ; 

sprintf (tmp2, " ' 

. 

Pr int f ( tmp , " \n " , 3 ) ; ./ - 

Printf(tmp2, "\n", 15); 

Split (files [0] == 0 ? "*.*" : files, NULL, dirl, filesl, extl) ; 
header_pos =0; 

while ( I CheckStruct (FileN) ) 
{ 

if (FileN [0] ) 
{ 

Split (FileN, NULL, dir2, files2, ext2) ; 
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if { Verify (files2, filesl, strlen {f iles2) , strlen(f ileal) ) 

-&& 

Verify {exfc2, exti, strleii( ext2) , strlen( extl) ) 

( (strstr (dir2, dirl) dir2 && (Recursiv )) || 

(stricmp(dir2, dirl) 0 (Recursiv ==0)) || fi 

les[0] 0)) 
{ 

ratio ^ IntoarceProcent (TotalWrit, TotalRead) ; * 
sprintf (tmp, " %-48s"> short_str (FileN, 48)); 
sprintf (tmp2, "%10d %10d .%3d.%d%c", TotalRead, TotalWri 
t, ratio / 10, ratio % 10, '%»); 

Print (" »» "/ 3, tmp, " 2./ tmp2, 3, " " 

% 0, -1); 

FileK++; ' ■ 

} 

} 

memset (FileN, 0 , sizeof (FileN) ) ; 
SkipToNextFile(Fl) ; 

} 

spr int f ( tmp2 r- : 

„_ „) . 

sprintf (tmp, " • %d file (s) . " , FileK) ; 
Print f { tmp2 , " \n " ,15); 
Print f ( tmp , " Vn " , 10); 

} 

int UpdateNonSolidArchive(char *files, char _to_what_tYpe) 

char f ilesl [_MAX_PATH] , dirl [_MAX_PATH] , extl [_MAX_PATH] ; 
char f iles2 EJMAX_PATH] , dir2 [JVIAX^PATHl , ext2 [jy[AX_PATH] ; 
.char temp [jy[AX_PATH] , tempf ile [ JVLAX^PATH] ; 
chair FileN t^MAX^PATH] ; 
unsigned int c, dels = 0, k; 

memset (FileN, 0, _MAX_PATH) ; 
GetTemporaryDirectory (tempf ile) ; 
strcat (tempf ile, "xtremly. tmp" ) ; 

if ( (F2=f open (tempf ile, »»wb+")) == NULL) return I; 

Printf(" Deleting 3); Printf (files, "\n", 2); 

Printf(" Creating temporary archive " 3); Printf (tempf ile, 

" % 2); 

ComplexSplit (files, temp, dirl, f ilesl, extl); 
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if (Read_Archive_Header ( 1 ) ) { Error { 1 , " " ) ; return 1 ; } 
else 

{ 

//if { {fwrite(&ARH_H, 1, sizeof (ARH_H) , F2).) 1= sizeof (ARH_H) ) 
return 1; // writes the first header 

if {FWrite_ARH_Header {&ARH__H, F2) ) return 1; // rewritten, has 
a 4 byte CRC built in! 

} 

Printf{" Scanning for packed 3); Printf {files, "\n", 2) ; 

while ( ! CheckStruct (FileN) ) 
{ 

if (FileN [0] ) 
{ 

Split (FileN, NULL; dir2, files2, ext2) ;* 

if (Verify (files2, filesl, strlen(f iles2) , strlen(f ilesl) ) && 
Verify(ext2, extl, strlen( ext2) , strlen{ extl) ) && 

( (strstr (dir2, dirl) == dir2 (Recursiv )) || 

(stricmp (dir2, dirl) == 0 && (Recursiv 0)))) 

{ 

Printf(" Deleted " 2); Printf (FileN, "\n", 3);// just 
erase the file by skiping it 
SkipToNextFile(Fl) ; 
dels++; 

} 

else 
{ 

if { (f write (&XTREME_H, 1, sizeof (XTREME^H) , F2)) sizeof(X 
TREME^H)) return 1; 

^ if ( (f write (FileN, 1, XTREME_H . JSTamLen , F2)) 1= XTREME_H 

._NamLen) return 1; 

c ftell(Fl) ; 

for ( ; ; ) 

{ 

if ((k = getc(Fl)) == EOF) Error(9, "»'); //unexpected END 
-OF -Archive. . . 

putc {k, F2) ; 

if (C++ >= (header_pos + sizeof (ARH_H) ) - 1) break; 
c = ftelKFl) ; 

} 

} memset (FileN, 0, MAX PATH) / 

} - ~ 

sprint f (temp, " %d files will be replaced.", -dels) ; 

Printf (temp^ "\n", 2) ; 
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Fclose(Fl, 0, 0) ; Repack = 1; 
Freeze (files, 1); // repacking 
Fclose (Fl, 0, 0) ; 
Fclose {F2, 0, 0) ; 

Printf(" Deleting temporary files", " 2); 

//if (dels) nu trebuie neaparat sa fie ceva de sters 

//GetCurDir(temp) ; 

/ / s treat (temp , Destination) ; 

GetCurDir(temp) ; 

if (strstr (Destination, ":\\") == NULL) strcat (temp. Destination); 
else strcpy(temp, Destiriatibri) ; * - 

_unl ink ( t emp ) ; 
rename (tempf ile, temp) ; 

return 0; // everything went okay I 



Analyzing archive depth ' 
Highest revision number 'is 0 
Saving archive tags 
Creating empty target archive 
Updated archive is empty *. 
Damage protecting archive 
Processing revision free files 
Analyzing 

Decompressing CHALES\LZCBJKXX\LZCB_XXX-NCB ERROR 90: file is damag 
ed 

Decompressing CHALES\LZCB_XXX\RESTB1TS OK 
Decompressing CHALES\RAX2\RAX2 .MAK OK 
Decompressing CHALES\RAX2\DEFLA32 .CP OK 
Decompressing CHALES\RAXX\RES\RAXX.RC2 OK 
Decompressing CHALES\RAXX\RES\ICONLIST. ICO OK 
Decompressing CHALES\RAXX\RES\lCON4 . ICO OK 
Decompressing CHALES\RAXX\RES\ICON3 • ICO OK 
Decompressing CHALES\RAXX\RES\ICON2 . ICO OK 
Decompressing CHALES\RAXX\RES\CTRLDEMO,ICO OK 
Decompressing CHALES\RAXX\RES\ICONl . ICO OK 
Decompressing CHALES\RAXX\RES\RAXXDOC. ICO OK 
Decompressing CHALES\RAXX\RES\RAXX. ICO OK 
Decompressing CHALES\RAXX\RES\RAXZ.GIF OK 



138 



wo 01/50612 



PCT/USOl/00424 



Nonsolid 



Decompressing CHALES\RAXX\RES\CXJRSORl .CUR OK 
•Decompressing CH2Ui,ES\RAXX\RES\MMl .AVI 14% 
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/**************************************************************** 
* 

* Dynamic Markov Encoding/Decoding procedures 



* 

From Xtreme 106 (DLL^) package by Sabiix, Belu (c) 1999 

* 



Fully 3 2 bit version ! 
Modified to be used in the" XTREME project I 
( and OPTIMIZED as much as posible ) 



* 

************************************************************ 
***********^ 

#pragraa pack (1) 

#include <io,h> 

#include <conio . h> 

#include <stdio.h> 

# include < string • h> 

#include < s tdl ib . h> 

#include <process . h> 

# include "markov.h" 

#include "util.h" 

#define MarKov 256 . 

long Maximums i.ze; // i need a signed here 

I 

short Current_State=:0 ; 

struct Tree • *STree [ MarKov ] ; 

unsigned char Bit [8] = {1,2,4,8,16,32,64,128}; 

unsigned char Pack = 0, Power = 0; 

short DeNode=l, c; 

long R=0, W=0, S=0, FSize; 

int LastCh; 
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void De Iiiit_jBuf (void) 

{ 

struct Tree *Tinp; 

for (short y=0; y<iy[arKov; y++) { Tmp=STree [ y ]; free (Trtip) ; 

} 

} 

void InitializeMarkovStates (void) 
{ unsigned short s; 

for(s=0; s < MarKov; s++) 

{ " 

if { (STree [si = (struct Tree *) malloc (sizeof (struct Tree) ) ) ==NU 
LL) abort 0; 
} 

} 

void InitModel (void) 

{ Tonsigned short e, s; 

Pack = 0; Power = 0; W = 0; Current_State = 0; 

for( s=0; s < MarKov; s++) 
{ 

for ( e=2; e < 512; e++) STree [s] ->Spl_pad [e] = e >> 1 ; 

for ( e=l; e < 256; e++)* 

{ 

STree [s] ->Spl_St [e] = e+e; 

STree [s] ->Spl_Dr[el = STree [s] ->Spl_St [e] +1; 

} 

} 

} 

void SeiniSplay (unsigned char C) 
{ short Dadl, Dad2, Aunt, Node; 

struct Tree *Tmp; 

Tmp=STree [Current_State] ; 

Node = C + 256; 

do 

{ 

Dadl = Tmp-'>Spl_Dad [ Node ]; 

if (Dadl i= 1 ) 
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{ 

Dad2 = Tmp->Spl_Dad [ Dadl ] ; 
if(Dadl ==Tmp->Spl_Dr [ Dad2 ]) 
{ 

Aunt = Tmp->Spl_St [ Dad2 ] ; 
Tnip->Spl_St [ Dad2 ] = Node; 

} 

else { . 

Aixnt = Tmp->Spl_Dr [ Dad2 ] ; 
Tmp->Spl_Dr [ Dad2 ] =: Node; 

} 

if ( Node == Tmp->Spl_St [ Dadl ] ) Tmp->Spl_St [ Dadl ] = A 

unt ; 

else TTnp->Spl_pr [ Dadl ] = A 

unt ; ■ 

// Exchange Dads 

Tnip->Spl_Dad [ Aunt •] = Dadl; 
Tmp->SplJDad [ Node ] = Dad2; 

Node = Dad2; 

} :. 
else Node = Dadl; 

} while ( Node 1 ) ; / ' . 

if (MarKov 1= 1) Current_State = C % MarKov; // MarKov Cur re 

nt_State Change 

} 

/************************************************* 
***************** 

These are Markov Encoding', and Decoding fianctions 
*************.***************************************************** 
*****************/ 

void MarkovEncode (unsigned int Size, xxnsigned char *Buffer, tinsigne 
d char *OutBuff , unsigned int *outcnt) 
{, register short Nodel, Node2; 

unsigned char Stack [255], T=0; 

register struct Tree *Tmp; 

unsigned short s,e; 

unsigned char C; 
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Pack = 0; Power = 0; W = 0; Current State » 0; 
for(s=0; s < MarKov; s++) ~ 

Tinp=STree [s] ; 

for { e=2; e < 512; e-f+) Tmp->Spl Dad[e] e » 1 ; 
for { e=:l; e < 256; e++) 

Tmp->Spl_St [e] = e+e; 
^ Tmp->Spl_Dr [e] Tinp">Spl_St [e] +1; 

} 

short Dadl^ Dad2, Aunt, Node; 
for (unsigned int i=0; i<si2e; 
C = Buffer [i] ; 

Tmp = STree [Current^State] ; 

Nodel = C + 256; 

do 

{ 

Node2 = Tmp->Spl_Dad [ Nodel ]; 

Stack [++T] = {Tmp->Spl_Dr [ Node2 ] == Nodel) ; 

Nodel = Node2; 

}while(Nodel 1=. i) ; 

do{ 

if {Stack [T--] ) Pack+=Bit [Power] ; 
if {++Power == 8} 

{ 

Powers 0 ; 

Out Buff tW++J = Pack; 
Pack=0; 

} 

} while (T >= 1 ) ; 

Node = C + 256; 
do 

{ 

Dadl = Trap->Spl_Dad [ Node ] ; 

if (Dadl 1= 1 ) 

{ 

Dad2 = Tmp->Spl_Dad [ Dadl ] ; 
if (Dadl ==Tmp->Spl_Dr [ Dad2 ]) 
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} 

else 

{ 



Avmt = Tnip->Spl_st [ Dad2 ] ; 
Tmp->spl_st [ Dad2 ] = Node;- 



Axint = Tmp->Spl_Dr [ Dad2 ]; 
^ Tmp->Spl_Dr [ Dad2 ] = Node; 

^ Aunt; ^ Tmp->spl_st [ Dadl ] ). Tmp->Spl_st [ Dadl ] 

else ' „ ^ 

= Aunt; Tmp->Spl_Dr [ Dadl ] 

// Exchange Dads 

Tmp~-.Spl_Dad [ Aunt ] Dadl; 
Tmp->Spl_Dad [ Node ] = Dad2; 

, Node = Dad2; 

} 

else Node = Dadl; 
} while ( Node i= 1 ); t " 

entltirchLg: -^^^^e = c % MarKov; // MarKo. Cu.. 

} 

if (Power) OutBuf f = Pack; 

*outcnt = W; 

unsigned short s,e; 
struct Tree *Tmp; 
unsigned char Ch; 

W = Current_State = O; 
for( s=0; s < MarKov; s++) 

Tmp=STree [s] ; 

for ( e=2; e < 512; e-f+) Tmp->Spl Dad[e] ^ e » 1 ; 
for ( e=:l; e < 256; e++) ; ~" 
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Tn^->Spl_St [e] = e+e; 
^ Tmp->Spl_Dr[e] .= Tmp->Spl_St [e] +1; 

} 

DeNode == 1; 

for (unsigned int i«0; i<si2e; i++) 

Ch = Buffer [i] ; 
Trap=STree [Current_State] ; 

for (short w=0; w < 8; w++) 

if ^ (DeNode >= 256) 

Semi Splay (DeNode -2 56) ; 
OutBuff [W++] DeNode-256; 

^^'"tT'-' // THE ROOT 

^ Tmp=STree[Current^State]; // on Another === Tree 

Ch »= 1; * ■ 

} 

LastCh = Ch; 
*outcnt = W; 
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**'k***'k^-kit'h '^**************** ********* 

* 

* 

^ Xtreme 106 DLL Main file / procedures 



* 

* 



^ From Xtreme 106 (d£.L) package by Sabin, Belu (c) 1999 



* 

* 



#pragma pack (1) 

#include <io.h> 
#include <conio.h> 
#include <stdio.h>. 
#include <stdlib.h> 
.# include <string.h> 
#include <memory.h> 
:#include <string.h> 

^include <dos.h> 
#include <direct.h> 

#include "util.h" 
#include "trees. h" 
#include » solid. h" 
#inqlude "markov.h" 
#include "deflate.h" 
#include "console . h" 
•# include "recovery . 
#include "nonsolid.h" 

#include "exports . h" 

FILE *F1, *F2; 

_declspec( dllexport ) void DeInit^Xtremel06_^Engine (void) ; 

.#pragma comment { exestr, "Xtreme in^ mr r.r.r«r.^ i ^ « . 

" _DATE_ " at " _TIME j 106 DLL compiled by Sabm Belu on 
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#pragma ^^^^^fjt ( exestr, "Xtreme 106 DLL authenticity verification 
ID no. : 0X47C1E0020305F403") veiri.ricaTiiori 

struct Shir *Sursa; 

char extractionDestination[_MAX_PATH] ; 
char Destination [_MAX_PATH] - 

Mut = 0, Incui = 0; 

unsigned char *Fereastra = NULL; 
struct Newlnteger *prev = NULL; 

struct Newlnteger *head = NULL; .-• - 

unsigned char *l_buf = null'- 
unsigned short *d_buf = NULL- 

unsigned char *BitBuf = NULL,- unsigned int BitBufC; 
unsigned char *LenBuf = NULL; unsigned int LenBufC 
unsigned char *LitBuf = NULL; unsigned int LitBufC 
unsigned char *DistBuf . NULL; unsigned int DistBufC; 
unsigned char *RestBuf2 = NULL; unsigned int RestBuf C2 • 
unsigned short *RestBufl = NULL- unsigned int RestBuf CI ) 

unsigned int XXXInBufC, XXXOutBufC; 
unsigned char *XXXlnBuf , *XXXOutBuf ; 

char InFile t_MZiX_PATH] ; 

long TotalRead, TotalWrit, TotalSum; 

char Tablelndex = 1, Solida =0, 

Recursiv = o, AssumeYes =, o, archive type; 
extern struct TableData conf iguration^tableTe] ; 

int PreEmptivelnit (void) 

// very important . since we are doing a CRC on this structure 

rltuJn^o'^^'^^^'* °' si2eof(ARH_H)); 

} ' 

Int PostEmptiyelnit (void) 

unsigned long MemUsed = o, Meml, ..Mem2; 
unsigned char Uol[3 0]; 
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ratio = 0; 

if (Fereastra == NULL) 

MemUsed+=: 2L*WSIZE + 6*LITBUF_TO_,ALLOC- 

sprintf ((char ♦)Uol, ■•%la.%ld», Meml, Mem2) , . 

if (Repack o) 

{ 

3, ..../Ja'^'cS" " % 3, (char *)Uol/ - 2, "Mb.", 

.^^^ if(ZipCloaking) Printf (-.• initializing zip Cloaking . , 

ila^hitTirriergr^"^'""^^ char, Fereastra, 2.*WSXZE) 

memory_request_alloc (struct Newlnteger,prev, WSI2E) • 
^ memory_request_alloc (struct NewInteger;he:i;IsH!sizE) ; 

Tnemory_request_alloc (unsigned char, BitBuf, LITBUF_TO_ALLOC 

memory_reguest_allpc (unsigned char, LenBuf, LITBUP_to_AI.LOC 

Tnemory_request_aIloc (unsigned char, LitBuf, LITBUF_to_ALLOC 

memory_raguest_alloc (unsigned char, DistBuf, L1TBUP_to_AI^ 

men.ory_request_alloc (unsigned char, RestBuf2, LITBIIP_to_ai,LOC 

memory_request_alloc (unsigned short, RestBufl, LITBUF_TO_ALLOC 

memory_request_alloc (unsigned char, XXXInBuf, LITBUF_TO_ALLOC 

memory^request_alloc (unsigned char, XXXOutBuf, LITBUF_TO_ALLOC 

etz,f'7^E:;:raxr"^T?'eiit{^r} " ^^^^ - "^^^^ - 
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^ memset (Fereastra^ 0, 2Ii*WSIZE) ; 
return 0; 

} 

void DeInit_Xtremel06_Engine ( ) 

memory_request_f ree (Fereastra) ; 
memory_request_f ree (prev) ; 
memory_request_f ree (head) ; ' 
meTnory_reguest_f ree (BitBuf ) ; 
memozy^request^free (LenBuf ) ; 
meraory_request_f ree (LitBuf ) ; 
meraory_request_free (DistBuf) ; 
memory_request_free(RestBufl) ; * ' 
memory_request_f ree (RestBuf 2) ; 



void ReadjustTables (void) 
WSIZE 

0; 

TOO_DISTANT 
;window_size 
;,MIN_MATCH 

MAX__MATCH 
;14IN_LOOKAHEAD 

HASH BITS 



*HASH_SXZE 
'HASH_MASK 
WMASK 
MAX_DIST 
•H_SHIFT 
D REST BITS 



conf iguration_table [Tablelndex] • WSIZE_I3stdex*0x80O 



} 



PostEmptivelixit () ; 



configuratioii_table[TableIndex] ,TOO DISTA3SrT*2096 • 
(uig) 2*WSIZE; 

conf iguration_table [Tablelndex] •MINJVEATCH; / /3 ; 
configuration_t able [Tablelndex] .MAX MATCH; 
{MAX_MATCH+MINjy[ATCH+l) ; 

configuration_table [Tablelndex] .HASH_BITS; 
(unsigned) (1«HASH_BITS) ; 
(HASH_SIZE-1) ; 
(WSIZE-1) ; 

(WSIZE"MIN__LOOKAHEAD) ; 

{ (HASH_BITS+MIN_MATCH-1) /MIN_MATCH) ; 
^ configuration_table [Tablelndex] .D_REST_BITS; 



int 
{ 



} 



DeleteFiles (char *files) 



if (Read_Archive_Header(l)) { Errord, ""); exit(O); } 
xf(Solida) return SolidDeleteFiles (files) ; 
else return DeleteNonSolidArchive (files) ; 

return -1; 



void- ListFrozenFiles (char *f iles) 
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{ 

if (Read_Archive_Header(i)) { Error (1, »"•) ; exit(O)- } 
if(Solida 0) NonSolidListFiles (files) ; 

SolidListFiles(files) ; 

void DatnageProtectArchive (char archivetype, char force_raode) 
if (Read_Archive_Header(0)) { Error (1, ""); return; } 

rchfv^7'''-''^°°''^'^-'"^^^^"^ ° " force_mode) DamageProtectorA 
else 

dy irollollk %)V "^^^'^ ^^l^ive is alrea 

yoid RemoveDamageProtection (char archivetype) 
if (ARH_H._recovery_Filesize) 
WipeCorrectionTables (Fl) ; 



} 

else 

{ ^ - 

Error (14, " "),-// Recovery record not found !% The archive 
must have been protected first ('p'rotect command) I"); 
/ ••" ' ■ 

} 

void ReAddProtectionO 
{ 

Fclose(Fl, 0, 0); ; ' 

Fclose (F2, 0, 0); • ' •;. 

= ARH_H._rec6very Method; 
COMPRESS_RECOVERY_RECORD = ARH_H._recoveryIcompressed; 

on)"^^^^^ ' f open (Destination, "rb+" ) ) == NULL ) Error (o, Destinati 

Printf{" Readding data recovery records.", ", 3). 
^ DamagePro tect Archive {archive_type, 1); 

void RepairDaiiiagedAr chive (char archivetype) 

if (Read_Archive_iIeader(0)) { Error (1,- ••"); return; } 
if (ARH_H._recovery_Pilesize) 
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{ 

if{{F2 = f open (« repaired, xtr", "rb")) I = NULL) 

char t = ScanForAchar { " File repaired. xtr already exists'l O 
verwrite ? (Y) es , (B) nter/ (N) o/ (C) ancel ...»', 4) ; 
switch (t) 

{ 

case 'Y' case 'y' : case 'E' : case 'e' : case 13 : F 
close (F2, 0, 0); goto Rep; break; 

} 

goto Afar; 

} 

Rep: if((F2 = f open ( "repaired. xtr»' , "wb+»)) NULL) return; 

RepairArchiveO ; 
Afar: ; ' - 

} ' . 

else 

{ 

Error (14, " ");// " Recovery record not found J", " The archive 
must have been protected first ('p'rotect command) !"); 

} 

void TryToRepair ( ) 
{ 

if (ARH_H._recovery_Filesize == 0) return; 
Fclose(Fl, 0, 0); Fclose{F2, 0, 0); 

if ((Fl =r f open (Destination, "rb+" )) NULL ) Error (0, Destin 
ation) ; 



PrintfC" Trying to repair archive 3); 
Printf(" Creating repaired version, repaired. xtr " ll) . 
^ RepairDatnagedArchive (archive_type) ; 

void LockArchiveO 
{ 

if ( (fread{&ARH_K, 1, sizeof (ARH_H) , Fl) ) 1= sizeof (ARH_H) ) Err 
or(l, ""); // error openning archive 
ARH_H._Locked =1; 
, rewind (Fl) ; 

//if {(f write (&ARH_H, 1, sizeof {ARH_H) , Fl) ) != sizeof (ARH_H) ) E 
rror(7, "") ; // error writting the archive header 

if (FWrite_ARH_Header(&ARH_H, Fl) ) Error (7, ""); // rewritten, ha 
s a 4 byte CRC built in l 
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^ PrintfC Locked prefectly. "> 2); 

void PrintLOGOO 
{ 

PrintfC" "\n\n", 3) ; 

PrintfC XTREME DLL", " 16*0 + 10); 
_^ ^ PrintfC Ver 1.06 The UltiMate Data Compression Tool. "\n\n", 

bheJS^SaMn!-!'"\n-? ""^^^ Corr^rassion Program, bitten 

ir"r"\n"**7?^ ""^^ ^ registered' program so, SLEASE, DO NOT use 
^pSSsEi%r"W"?"?^r"' ^^^^-^ except for EVALUATION 

void PrintLogoCchar action, char archive_type, char _updated_type) 

ndSKDeSori';''''"^ '^^^ ' ^^uration.table [Tablel 

Frintf (tmp, "\n", 2) 

switch (action) 

{ 

^case 0 : sprintf {tmp2, " Creating%sarchive ■%s'", archive type 
? solid « : " short_str (Destination, 50)); ~ 
Print f (tmp2, "\n\n", 2); 
break; 

,case 1 : sprintf (tmp2 , » Extracting%sarchive •%s'", archive tvo 
e ? " solid " :." ", short_str (Destination, 50)); rcnxve_typ 
Printf (tmp2, "\n\n", 2); 
break; 

case 2 : sprintf (tmp2 , " Testing%sarchive '%s'", archive type' ■> 
" solid " : » short_str (Destination, 50)); " ' 

Printf {tmp2, "\n\n», 2); 
break; 

case 3 : sprintf (tmp2, " Listing%sarchive content '%s-", archiv 
e_type ? » solid " : " short_str (Destination, 50)); 
Printf (tmp2, "\n\n", 2); 
break; 
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case 4 t sprintf (tTnp2, " Deleting f rora%sarchive '%s'", archive 
type ? " solid " : short_str (Destination, 50)); ~ 

Pr int f ( tmp2 , " \n\n " , 2 ) ; 
break; 

case 5 : sprintf (tmp2, " Updating%s archive '%&"», archive type 
? " solid short_str (Destination, 50)); ~ 

Print f ( tmp2 , \n\n " , 2 ) ; 
break; 

•case 6 : sprintf (tmp2, " Protecting%sarchive •%s,' (adding ecc) " 
archive_type ? " solid " : •> , shbrt_str (Destination, 50)); 

Printf ( tmp2 , " \n\n " , 2 ) ; 

break; 

case 7 : sprintf (tmp2, " Removing protection f rom%sarchive •%s'" 
, archive_type ? " solid ":•«", short_str (Destination, 50)); 
Printf ( tmp2 , " \n\n" , 2 ) ; 
break; 

case 8 : 

sprintf (tmp2, " Repairing%sarchive •%s'", archive type 
? " solid " : " short_str (Destination, 50)); ~ 
Printf (tmp2, «\n\n", 2); 
break; •• 

case 9 : sprintf (tmp2, " Locking%sarchive '%s'", archive type ' 
" solid " : " short_str (Destination, 50)); ~ 
Printf (tmp2, "\n\n", 2) ; 
break; 

} 

} 



void CheckForMove { ) 

{ 

int deleted__f iles =0; 
char tmp [_MAX_PATH] ; 

if (Mut) 
{ 

Printf {" Deleting freezed files " 2); 
for (unsigned int i=0; i < SolidN; i++) 

Printf (" Deleted " »' , 3) ; 
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Printf (SolidArrayCi] .RealName, "\n " 2) • 
iles++- ^^^-^^^^^-P^th(SolidArray[i] .RealName, 1) =='o} deleted_f 

sprintf (tmp, » %d moved to archive. % deleted f iles) • 
Printf (tmp, lo) ; /" 

} 

void dlljiiain{void) 
{char rez ^= 0; 

ratio ==0/ 

PrintLOGOO; * 
Print_Start ( ) ; 
PreEmptivelnit { ) ; 

// this line is more important then your life ! Chec it » 
If (sizeof (struct Newlnteger) 1= 3) return; // you're doomed forev 



er 



if (Listez) •■■ 

tion)t^^^^^ ' f open (Destination, "rb" )) == null ) Error(0, Destina/ ' 

GetArc]iiveType(&archive_type) ; • • 

PrintLogo(3, archive_type, o) ; 
^ ListFrozenFiles (Sursa [0] .Name) ; 

else 

if(Inghetz) 

{ - 

n, .'rb"?r~^^ST^-"^'' " ZipCloaking || (fi . f open (Destinatio 
{ 

stinatioif-^^^^ " f open (Destination, "wb+" )) == null ) Error (0, De 

Actualizez =0; 
PrintLogo(0, Solida, o) ; 

if(Solida == 0) Freeze (Sursa [0] .Name, 0) ; 
J else SolidFreeze (Sursa [0] .Name) ; 

else 
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{ 

AssumeYes =1; 

GetArchiveType {&archive_type) ; 

Actualizez = Repack = l; 

PrintLogo (5 , archive_type , Solida) ; 

//if (Actualizez 1) FileSelection () ; 
if (ARH_H .^Locked) Error (13 , " " ) ; 

if (archive^type ==. 1) rez = UpdateSolidArchive (Sursa [01 Na 
me, Solida) ; // to Solid, or to normal 

rez = UpdateNonSolidArchive (Sursa [0] 
.Name, Solida); // Solida is from input, so what the users reouests ' 
for the next archive to be like I 

^ if (ARH_H._recovery_Filesize && rez == 0) ReAddProtection() ; 
CheckForMove ( ) ; 

} 

else 

if (Testez | | Extrag) 

if( (Fl = f open (Destination, "rb" )) == NULL ) Error (0, Destin 
at ion) ; 

/ - GetArchiveType (S:archive_type) ; 

PrintLogo (1+Testez, archive_type , 0) ; 

if (Extrag) MeltFileO; 

else 

{ 

rez = TestFrostedFiles () ; 

TestRecoveryRecordO ; 

if (rez > 7) TryToRepair {) ; 

. I. ^ 
else 

if (Sterg) 
.{ 

Repack =1/ 
AssumeYes = 1; 

if((Fl = f open (Destination, "rb« )) == NULL ) Error(0, Destin 
ation) ; 

GetArchiveType ( &archi ve_type ) ; 
PrintLogo ( 4 , archi ve_type , 0 ) ; 

if (ARH_H^_Locked) Error (13, ""); 

if (Sursa [0] .Name) rez = DeleteFiles (Sursa [0] .Name) ; 
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^ if (ARHJI.^recoveiry^Filesize rez ~ 0) ReAddProtectionO ; 
else 

if (Protejez) 
{ 

if {{Fl = f open (Destination, "rb+" )) NULL ) Error (0, Desti 
nation) ; 

GetArchiveType {&:archive_type) ; 

PrintLogo(6 + {Protejez -.1), ar chive_type , 0) ; 
if (ARHJEI._Locked) Error (13 , " " ) ; 

if (Protejez ~ 1) DamageProtectArchive (archive_type, 0); 
else RemoveDaTnageProtection(archive_type) ; 

else 

if (Repar) 
{ 

if ((Fl = fopen (Destination, "rb+" )) == NULL ) Error (0, Des 
tination) ; 

GetArchiveType (&:archive_type) ; 
Pr intLogo ( 8 , archive^type , 0 ) ; 
RepairDamagedArchive (archive type) ; 

. } 

else 

if (Incui) • 
{ 

if((Fl f open (Destination, "rb+" )) NULL ) Error (0, Des 
tination) ; • *; 

GetArchiveType (&:archive_type} ; 
PrintLogo ( 9 , archive_type , 0 ) ; 
if (ARH_H._Locked) Error (13 , " " ) ; 
Lockl^chive 0 ; 

} ■. .-■ 

Fclose (Fl, 0,0); 
Fclose (F2 , 0,0); 

i f (MyXtrS tructure . EndDLL Job i = NULL) MyXtrStructur e . EndDLLJob ( ) ; 
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#pragma pack (1) 

#include <io-h> 

#iiiclude <conio . li> 

#include <stdio.h> 

#iiiclude <stdlib . h> 

#inGlude <string.h> 

#include <meTnory.h> 

#include <st:ring.h> 

#include <dos.h> 
#include <direct.h> 

#include "util.h" _ 

#include " export s.h" 7 

extern void dll_main{void) ; 

^declspec ( dllexport ) void FreeOtherStuf f ( void) ; 

^declspec{ dllexport ) int Init_Xtremel06_Engine { XTREME106_CMDS 

TRUCTURE *XtrStructure ) ; 



extern int PostEraptivelnitlnit (void) ; 
extern struct Sliir *Sursa; 

extern char extractionDestination [_MAX_PATH] ; 
extern unsigned char metoda, COiyiPRESS_RECOVERY_RECORD ; 
extern char Destination [_MAX_PATH] ; 

extern char Inghetz, Testez, Sterg, Extrag, TestedOk, Listez, Act 
ualizez^ Repack, Protejez, 

Repar, ZipCloaking, Mut, Incui; 
extern char Tablelndex, Solida, AssumeYes, Recursiv; 



XTREME 1 0 6_CMDSTRUCTURE MyXt r S t rue tur e ; 

#def ine DLLInitError {a,b, c, d) if (XtrStructure->ErrorMessageDisplay 
Function) XtrStructure->ErrorMessageDisplayF\inction{a,b, c, d) ; 



void FreeOtherStuf f (void) 
{ 

free ((struct Shir *)Sursa); 

Fclose(Fl, 0, 0); // everything must be shut off whe 

n exiting 

Fclose(F2, 0, 0); // bugs disappear 

Fl = NULL; 
F2 = NULL; 
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} 

int Init_Xtremel06_Eiigine ( XTREME106_CMDSTRUCTURE *XtrStructure ) 



Mut = 0 

Incui = 0 

Sterg = 0 

Listez = 0 

Repar := 0 

Repack = 0 

Testez = 0 

Extrag = 0 

Inghetz = 0 

TestedOk = 1 

Prote j ez = 0 



Actualizez = 0 
ZipCloaking = 0 



memcpy ( (unsigned char * ) &MyXtrStructure , 
(unsigned char *) & (*XtrStructure) , 

sizeof {XTREME106_CMDSTRUCTURE) ) ; // why should we forget w 
onderful thing ? 



memset (Destination, o, _MAX_PATH) ; 

meinsefc (extractionDestination, 0, _MAX_PATH) ; 

switch (XtrStructure->f imction) 

{ ' . 



case 


XTREME^ 


_ADD 


: Inghetz 




1; 


break; 


case 


xtreme]^ 


_TEST 


: Testez 




1; 


break; 


case 


xtreme' 


"move 


: Mut 




1; 










Inghetz 




1; 


breaks- 


case 


XTREME^ 


.LIST 


r Ligtez* 




1; 


break ; 


case ' 


■ XTREME^ 


"lock 


: Incui 




1; 


break; 


case 


xtreme]^ 


"delete 


: Sterg 




1; 


break; 


case 


xtreme" 


"repair 


: Repar 




1; 


break; 


case 


xtreme]^ 


"extract 


: Extrag 




1; 


break; 


case 


xtreme]^ 


^PROTECT 


: Prote jez 




1; 





hod; 

rer>compressn_ecc; 



// 0 



raetoda XtrStructure->protection_Tnet 

COMPRESS_RECOVERY_RECORD = XtrStructU 
. 1 

break; 



case XTREME^UMPROTECT : Prote jez == 2; break; 
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default : // there must be an error, undefined function called 

/* DLLInitError ( " Wrong number in Xtreme function init ! «\n 
% 12, 

" None of these functions were supplied to me ... 

% "\n% 12., 

" XTREME^ADD, XTREME_TEST, XTREME Jt40"VE , XT 

REME_LIST, "\n", 12, 

" XTREiyiE^LOCK, XTREMB_DELETE , XTREME_REPAIR, XT 

REME_EXTRACT , " , " \n " , ' 1 2 , 

" XTREME_PROTECT, XTREME^UNPROTECT " / «\n" , 12 
" Initialization error ... " "# '.2, " " 2) 



; //so ... 

return 1; 
break; 

} 



* 



/ 



// check the options I 

Recursiv = XtrStructure->recursive; 
Tablelndex = XtrStructure->tablesize; 
Solida = XtrStructure->solid; 

ZipCloaking = XtrStructure->zipClo4king; 

if (Recursiv 1= 0 Recursiv 1= 1); return 2; 
if (Solida != 0 && Solida != 1); ' return 3; 
if (Tablelndex > 8) . return 4; 

if (Tablelndex 0) TableTndex++; * . 

if (Protejez 1 && (metoda > 3 | ) (COMPRESS_RECOVERY_RECORD != 0 
COMPRBSS_RECOVERY_RECORD !^ 1))) return 5 ; 

if ( (Sursa = (struct Shir *) malloc (1:xtrStructure->MaxDirectories) * 
sizeof (struct" Shir ===1^^ return 7'; // not enough memory! 

// if MaxDirectories field is specified, then take care, cause yo 
u have to suplly them, or else .... \ 

for (unsigned int i=0; i < XtrStructure->MaxDirectories; i++) 

{ 

metnset (Sursa [i] .Name, 0, Max PAT 

H); ' - - 

memcpy (Sursa [i] .Name, XtrStructure->Sursele [i] .Name, MAX 
_PATH) ; - 

} 

//if (XtrStructure->extractionDirectory [0] ) 

memcpy (extract ionDestinat ion, (char *) (XtrStructure7>extractionDi 
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rectory) , _MAX_PATH) ; 

//if (XtrStructure->Destination[0] ) 

tnemcpy (Destination, (char *) (XtrStructure->Destination) , MAX PAT 
H) ; - - 

if (Sursa[0] .Name[0] 0 && Destination [0] 0) return 6; 

ifCExtrag 1 | | Sterg == 1 /* is somewhere else, don't worr 

y I I Actualizez == i i think there is room for Adaug and test */) 
FileSelectionO ; 

dll_main()7 // and execute, too I 
return 0; 

} 
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#define BITS 26 

#def ine MAXCHAR_CONTEXT 35 // MAXIMMOM CONTEXT CHAR NUMBER 

#define DOI_LA(n) (l«n) 

#define HALF DOI_IiA(BITS - 2) 

#define FULIi DOI_LA(BITS - 1) 

struct contextModel 

{ 

unsigned int Symbol sNo; 
unsigned int TotalFrequency; 
unsigned int Step; 
unsigned int MaximumFreq; 

unsigned int Freq[MAXCHAR CONTEXT + 1]; - - 

}; 

struct Fill_In_Data 

{ 

unsigned int flag; 

unsigned int retValue; 

unsigned int thresholdValue ; // please do not change the order o 

k 

unsigned int symbol sNumber; 

unsigned int step; 

}; :• • ■ • 

void ContextualEncodeBuffer (unsigned int read, unsigned char *Inbuf 
, unsigned char *Outbuf , unsigned int *out) ; 

void ContextualDecodeBuffer (unsigned int read, unsigned char *Inbuf 
, unsigned char *Outbuf , unsigned int *OutNo) ; 



161 



wo 01/50612 



crc 



PCT/USOl/00424 



#define INIT_CRC_VA1,UE OxffffffffL 
extern imsigned int crc_32_t:ab [] ; 

void updcrc (tinsigned char *s/ unsigned int n, unsigned int *whatcrc 
) ; 

void local_short_crc (unsigned char *s, unsigned int n, unsigned sho 
rt * what ore) ; // 2 byte CRC derived from 4 byte CRC 
void local_uint_crc (unsigned ch^r *S/ unsigned int n, unsigned int 
*whatcrc) ; // 4 byte CRC 
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typedef unsigned char uch; 
typedef unsigned ush; 
typedef unsigned int • tilg; 

extern unsigned char *Fereastra; //SI 

iding window and suffix table (unlzw) 

extern struct Newlnteger *prev; // pr 

efix for even codes 

extern struct Newlnteger *head; // pr 

efix for odd codes 

//extern unsigned int *prev; // prefix 

for even codes 

//extern unsigned int *head; // prefix 

for odd codes 



extern unsigned int 
extern unsigned int 
extern unsigned int 
extern unsigned int 
extern unsigned int 
/ start of string to 
extern unsigned int 
extern unsigned int 



insert 



HASH_BITS; 
HASH__SIZE; 
HASH_iyiA.SK; 
WMASK; 

window_s i z e , 

MAX_DIST; 
H SHIFT; 



string__starting; 



extern unsigned int MIN^MATCH; // 4,5 

extern unsigned int MAX_MA.TCH; // 258 

//258 // The minimum and maximum match lengths 
extern unsigned int MIN_LOOKAHEAD ; 

int inflate () ; 
int deflate ( ) ; 

void initialize_engine{shor¥r;"~ .— - 
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Def uri 



#include <conio.h> 



#define 
#def ine 
#def ine 
#define 
#def ine 



HELPCOLl 

HBLPCOL2 

HELPTEXTl 

HELPTEXT2 

HELPTEXT3 



#def ine VOLUME 
ttdefine UNLINKING 

#def ine REGI 

#def ine MENU_C0L1 
#def ine MENU_C0L2 
#def ine MENU_SELECTED 
#def ine MENU^DISABLED 

#define COMMENT 

#def ine C0MMENT_1 

#def ine COMMENT_2 

#define COMMENTARIU 

#def ine XTREME_VERSION 
#define LOG_FILE_NAME 

#define CHECKBOXCHAR 
#def ine CBOX_STR_COLOR 
#define CBOXCOLOR 
#define CBOX_COLOR 

#def ine RETRY_COD 
#def ine ABORT_COD 
#de f ine . ;IGNORE_COD 

#def ine /STORED 
#def ine STATIC 
#define DYNAMIC 

#define ADDING 
#def ine TESTING 
#def ine EXTRACT 

#ifdef ' cplusplus 

#def ine CPPARGS . . . 

#else ; #def ine CPPARGS 



16*8 + 11 
16*8 + 14 
16*8 + 14 
16*8 + 11 
16*8 + 15 

16*8 + 10 
16*8 + 11 

16*8 + 11 

16*7 + 11 

16*7 + 0 

16*9 + 14 

16*7 + 15 

16*8 + 11 

16*8 + 11 

16*8 + 14 

16*8 + 15 



10 



"klm_.log" 

'X' 

16*7 + 15 
16*7 + 14 
16*7 + 11 

1 
2 

0* 

OxdO 
0x01 
0x02 

0x07 
0x08 
0x09 
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#endif 



#def ine ALTJVIENU 
#def ine ALT_G0L1 
#def ine ALT_COL2 
#define ARC_ALTjyiENU 

#def ine ADD_COLl 
#def ine ADD_C0L2 

idefine SHORTCUT 
#define PAROL_COL 
#define RAM 
#define COPYR 
#define OS PATH 
#define FREESPACE 

#define EDIT 
g : Volatile text 
#def ine WRITE 
s : UnVolatile 



16*1 + 14 

16*1 + 11 

16*1 + 10 

16*1 + ' 2 

16*8 + 15 
16*8 + 14 



16*8 
16*8 
16*8 
16*8 
16*8 
16*8 



11 
14 
15 
14 
14 
15 



16*8 + 15 
16*8 + 14 



//. Dialo 
// Color 



#define PERCENT 
#define ADDPERCENT 
#def ine TSTPERCENT 

#define ERROR_COLl 
#define ERROR_COIi2 

#define PASSW_C0L1 
#define PASSW_COL2 

#define INSERT_FdND 
#define INSERT_COLl 
#define INSERT_COL2 
#define INSERT_CHAR 

#define INSERT 
#define HOME 
#define DEL 
#define END 
#define TAB 
#define ST 
#define DR 
#def ine UP 



16*8 + 2 
16*8 + 14 
16*8 + 2 

16*REP;+ 'is 
16*RED ■+ 14 

16*RED + 15 
16*RED + 14 

16*8 +; 2 

16*7 +15 

16*7 +/l4 

16*8 +14 . 

0x52 
0x47 
0x53 
0x4 f 
0x09 
75 
0x4d 
6x48 
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#def ine DN 



0x50 



#def ine NOSCROLL 

#define DOSCROLL 

#defiiie NOINFO 

#def ine DOINFO 

#define CLOCK 
#define XCLOCK 
#define YCLOCK 
#define CLOCK_COLOR 

#define DOTOJ 

#def ine ATTRIB_CHAR 

#define MAXSCROIiL_LEN 

#define INSERT_BUTTON 

#def ine ATTRIB_CHAR 
#define MAXSCRGLL_LEN 
#define DOWN 

#define JOS 
#define SUS 

#define MAX_MOUSE__SENSITIYE__TEXT 

#define ATTRIBCHAR 
#define NoTiceTime 

#define DRIVE__NORMAii 

#define ADDCOL 
#define ADDFOND 



16*8 



2 
3 
0 
3 

1 
73 
1 

+ 11 

20 
178 
17 
2 

178 
17 
20 

1 
2 
50 

254 
30 



16*8 + 11 



// Oxfb 



// Oxfb 



//Seconds 



16*7 
16*7 



+ 14 
+ 15 



#def ine" ARCHIVE" 

#define FOND 
#define INFO 
#define TEXTINFO 



16*8 + 11 



16*8 
16*8 
16*8 



+ 15 
+ 14 
+ 14 



// Name, Size, 



#define SCROLL^ARROW 
#define SCROLL_FOND_CH 
#define SCROLL_KNOT_COIi 
#define SCROLL_FOND_COL 
#define SCROLL_FOND_SELECTED 
#def ine SCROLL ARROW COL 



16*8 
16*8 

16*8 



254 
219 
+ 13 
+ 7 
0 

+ 15 
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#define FUNCTIONCOL 
#define STATUSBARCOLOR 

#define FILEJSTORMAIi 
r noarmal 

#define FILE^INSERTED 
r inserat 

#define FILE_NORMAIi_SELECTED 
r normal • selectat 
#define FILE_INSERT_SELECTED 
r inserat selectat 

#def ine DIRECTORY_NORMAIi 
#def ine DIRECTORY_INSERTED 
#define DIRECTORY_jNjORMAIi_SELECTED 
#def ine DIRECTORy_INSERT_SELECTED 

#define SENSITIVE_TEXT_NORMAL 
#define SENSITIVE_FlJNCTIONS__NORMAIi 
#define SENSITIVE_TEXT_SELECTED 

#define TOATE 

+ FA SYSTEM+FA ARCH 



#define vseg OxbSOO 

#define Year.{ts) 
//+1980 ' * 

#defihe Month(ts) {(unsigned 
/* 1.-12 means Jan. .Dec */ 



16*3 + 4 
16*3 + 8 

16*8 + 15 

16*8 + 14 

16*9 + 14 

16*9 + 3 



// Atribut Fisie 
// Atribut Fisie 
// Atribut Fisie 
// Atribut Fisie 



16*8 + 11 - 
16*8 + 14 
16*9 + 14 
16*9 +3 

16*7 + 0 
16*3 + 0 
16*3 + 14- 

FA DIREC+FA RDONLY+FA HIDDEN 



#define Day(ts) 
/* 1..31 means 1st. 
#defirie Hour(ts)* 
#define MinCts) ;. 
#define Sec(ts)^ 



{{unsigned int) { (ts >> 9) & 0x7f) + 80) 
int) (ts » 5) Sc OxOf) 
int) (ts >> 0) & Oxlf) 



{ (unsigned 
.31st */ _ 

{ (unsigned 
( (unsigned 
( (unsigned 



int) (ts » 11) Sc Oxlf) 
int) (ts » 5) Sc 0x3f) 
int) ((ts Sc Oxlf) * 2)) 



extern void ASTEAPTA(void) ; 
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#define XTREMB_ADD 1 

#def ine XTREME_TEST 2 

#def ine XTREME_MOVE 3 

#def ine XTREME_LIST 4 

#define XTREME_LOCK 5 

#define XTREME_DELETE 6 

#def ine XTREME_REPAIR 7 

#define XTREME_EXTRACT 8 

#define XTREME_PROTECT . 9 

#define XTREME UNPROTECT 10 



struct FileName 

{ 

char *Name; 
char File ; 
char * PathlOr2 ; 
n an interface, here is its index 
char NotUsedl; // 4 
char NotUsed2; // 1 



// directory to add . . . 

// file or directory 

// since a path is required i 



typedef struct 

{ 

char solid; 
char function; 
char tablesize; 
char recursive; 
char zipCloaking; 

char sfx; 

char compressn_ecc; 
char protect ion_jnethod; 

char *Pathl; 
char *Path2; 

struct FileName Sursele [10000] ; 

char *Destination; 

char *extractionDirectory; 

unsigned int MaxDirectories; 



// ALL .those above ! 



// 0 
// 0 



; 1 

r 3 



// files path 1 
// files path 2 



// archive name . . . 

// extract to directory 



void {*EndDLLJob) 

int (*Utility_Ftinction) 



(void) ; 
(char *mess. 



int 
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but_no) ; 

void {*ErrorMessageDisplayFxiiiction) (char *messagel, char 

*delimitl, int colorl, 

char *message2, char 

*delimit2, int color2, 

char *niessage3, char 

*delimit3, iiit colors, 

char *message4, char 

*delimit4, int color4) ; 

void (*MinorStatusMessageDisplayFunction) (char *sfcatusl, char 
*delitnitl, int colorl);//, 

//char *status2, ch 

ar *delimit2, int color2) ; 

void {*MajorStatusMessageDisplayFiinction) (char *statusl, char 
*deliinitl, int colorl, 

char *status2, char 

*deliTnit2, int color2, 

char *stat'us3, char *deliinit3, int cplor3, 

char *status4, char *delimit4, int color4, 

int procent) ; 

} XTREME106_CMDSTRUCTURE; 

extern XTREME106_CMDSTRUCTURE MyXtrStructure ; 
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#define MAX_CHARACTERS 256 

#define ROOTPLUSONE 511 

#define ROOT 510 

#define MAX_FREQ 0x8000 

#define MAX READ 0x32000 



struct HuffmanTree 

{ 

int Spl_Freq[512] ; 

int Spl_Dad [512 + 256] ; 

int Spl_Son [512] ; 

}; 

extern unsigned int outcount; 

extern vmsigned char OutBuf [MAX_READ*2] ; // prevent expanding 1 



// 

// EncodeBuf f er (Size, Undefined, Undefined2, &:X) ; 
// DecodeBuff er (Size, Undefined, Undefined2, &X]c) ; < 
he same value -here 

// Ex -> Encode (66000, ... ) > 4000 

at the encoding 

// Decode (66000, ... ) ---> 66000 

void EncodeBuffer (unsigned int Size, unsigned char *Buffer^ unsigne 
d char *OutBuff, unsigned int *outcnt) ; 

void DecodeBuffer (unsigned int Size, unsigned char *Buffer, unsigne 
d char *OutBuf f , unsigned int *outcnt) ; 



Size has t 

just like 
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/* Common procedures and functions for both Encode and Decode */ 



struct Tree { 



short Spl_St [256] ; 

short Spl_Dr [256] ; 

short Spl Dad [512] ; 

}; 



void InitModel (void) ; 

void De_Init_Buf (void) ; 

void MFillName (unsigned char Chir) ; 

void InitializeMarkovStates (void) ; 

void SemiSplay (unsigned char Ch) ; 

void Br eakChars (unsigned char Ch) ; 

void MarkovEncode (unsigned int Size, unsigned char *Buffer, unsigne 
d char *OutBuff, unsigned int *outcnt) ; 

void MarkovDecode (unsigned int Size, unsigned char *Buffer, unsigne 
d char *OutBuff, unsigned int *outcnt) ; 
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extern xinsigned long header_pos; // the main variable for 

// non-solid archives communicatio 

n ! 

int TestFrostedFiles (void) ; 

int Dele teNonSolidArchive (char *files) ; 

int Upda teNonSolidArchive (char *files, char _to_what_type) ; 



int Write_Fake_Header (void) ; 
int Write_Real_Header (FILE* ) ; 

void MeltFile (void) ; 

void NonSolidListFiles (char *f iles) ; 

void Freeze (char *FileMask, char repack);* 

void PackFile{char *naine, \insigned int size) ; 
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#def ine NON_CONSECUTIVEJsro 11 // 3, 5, 7 

#def ine PROTECTEDJBUFFERJSTO 21 // the bigest values 

// 5, 7, 11 

#define PROTECTED BUFFER SIZE 512 



Struct DataRecovery 

{ 

unsigned short CRC; 

unsigned char buffer [PROTECTED BUFFER^SIZE] ; 

}; 

Struct Protect 

{ - 

unsigned short n_subsectors ; 

unsigned int n_buf f er_size; 

struct DataRecovery *recovery_ ;// [NON_CONSECUTIVE_NO] ; 

unsigned short *SubSectorCrc ;// [NON__CONSECUTIVE_NO * PR 

OTECTED_BUFFER_NO] ; 

}; 



struct Data 

{ 

unsigned short.' CRC; 

unsigned char buffer [PROTECTED_BUFFER_SIZE] ; 

>' 

struct ReadStructure 

{ ■ . 

struct Data Date [PROTECTED BUFFER NO] ; 
}; ~ ~ 

extern xihsigned char metoda, C0MPRESS_REC0VERY_RECORD; 

int CheckDataRecovery (FILE *FF) ; 

int WipeCorrectionTables (FILE *FF) ; 

int ReadProtectStructure{FILE *FF, char read); 

int WriteCorrectionTable{FILE *FF, char flush); 

int WriteProtectStructure (FILE *FF, char flush); 

int ReadCorrectionTable (FILE *FF, unsigned int FSize) ; 

int DamageDetected (unsigned char *Table/ xmsigned int Sectorl^ xxnsi 

gned int size^ unsigned short *errorIndex) ; 

void Repair { ) ; 

void ComputeDataRec6veryRecord(FILE *FF) ; 
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void initializeProtection (unsigned char met, \msigned int size, clia 

r protect) ; ' , 

void Repair (unsigned char *Table, \insigned int bad_subsector, unsxg • 

ned int TableSize) ; 

void initializeCorrectionForFileCFILE *FF, "unsigned int size, char 
copy, unsigned char metode) ; 
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// { {no_dependencies } } 

// Microsoft Developer Studio generated include file. 

// Used by tester. rc 

// 

#define IDD TESTER DIALOG 102 



#define IDR_MAINFRAME 128 

#define IDC_STATIC002 1000 

#define IDC_STATIC001 10 oi 

#define IDC_STATIC003 1002 

#define IDC_STATIC_004 1003 

#define IDC_STATIC__005 1004 

#define 1DC_STATIC_100 1005 

#define IDC_STATIC_101 1006 

#define IDC_STATIC_102 1007 

#define IDC_STATIC_103 1008 

.#define IDC_LIST1 1009 

#define IDC_L1ST2 lOlo 



// Next default- values for new objects 
// 

#ifdef APSTUDIO_INVOKED 

#ifndef APSTUDIO_READONLY_SYMBOLS 

#def ine _APS_NEXT_RESOURCE_JVALUE 

#define _APS__NEXT_COMMAND_VAIiUB 

#def ine _APS_NEXT_CONTROIj__VAIiUE 

#def ine _APS_NEXT_SYMED_yALUE 

#endif 

#endif 



129 
32771 
.1011 
101 
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Struct Solid_XTREME_Header 
{ 

unsigned long _Time_Date; // 8 

unsigned int _SizeUnCom; // 4 

unsigned char _NamLen; // 1 

unsigned char _Atrib; // 1 

xinsigned char _NOT__USEDl; // 1 

unsigned char _N0T_USED2; ; //I 

unsigned int _SolidCRC; // 2 

// Since opening a file does not mean actually that, we are going t 
o 

// preserve its full name in the archive, then the easiest solution 
// will be to keep two names for the file, which is actually the si 
ngle 

// solution! 

// It is the best implementation for cases related the interfaces 
// where we are in a directory and we are adding sone files .... 
// there are not supposesd to be added with FullPath! 

struct SolidFileType - 

unsigned long time_date; 

unsigned int ' size; 

char ' atrib; 

char • selected; 

char ArchiveKeptName [__MAX_PATH] 
char RealName [__MAX_PATH3 

char ' ext[ MAX EXT] 

int Write_Solid_CI«C(void) ; 
int Write_Solid_He'ader.'(void) ; 
int Read_Solid_Header (void) ; 

extern unsigned long TotalSolidSize; 
extern unsigned int SolidN, Solid_CRC; 
.extern struct SolidFileType *SolidArray; 

int SolidlnitO; 
int TestSolidArchive (void) ; 
int SolidDeleteFiles Cchar *) ; 
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int UpdateSolidAr chive (char *files, char __to_solid_or_normal) ; 

int SolidMelt (void) ; 

void SolidExtract (void) ; 

void SolidFreeze (char *) ; 

int SolidListFiles(char *f iles) ; 

void UpdateSolidArr ay (unsigned int SolidKa) ; 

void SolidFillTheName (unsigned int, char *, unsigned int, -unsigned 

long, unsigned char) ; 

void SolidRePack (unsigned int no, char *fromWhere, char update); 
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#irLclude <stdio .h> 

#define LITBUF 56*1024 

#define LITBUFjro_ALLOC 64*1024 // prevent expanding 
/* 

Okay, please beware that these values are checked in case of test 
ing 

an archive 'stricataM So, within IK, the error must appear to be 
detectable 

So, remember that when you change these ones I 
*/ 

extern FILE *F1, *F2; 



st3ruct Huff_Block 

{ 

unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned int 
unsigned int 

}; 



_RestBits 
_Block_Type_0 
_Block_Type_l 
_Block_Type_2 
__Block_Type_3 
_B 1 o ck_Type_4 
_NOT_USED 
CRC total; 



// Bits 
// Literals 
// Lenghts 
// Distances 
// RestBuf2 

// One for all 



void Tree_Start 0 ; 

void Tree_Flush ( ) ; 

int Read_Block ( ) ; 

void bits_f lush (void) ; 

int Tree_Encode (int , int); 

void "send bits (unsigned short value ^ 



short length) ; 



void get_bits (unsigned short *value, short length, bool ok); 
extern unsigned char restbits; 



extern unsigned char *BitBuf ^ 

extern unsigned char *LenBuf ; 

extern unsigned char *LitBuf j 

extern unsigned char *DistBuf ; 

extern unsigned char *RestBuf2; 
/ the compressible rest 

extern unsigned short *RestBufl; 



extern unsigned int BitBufCj 
extern unsigned int LenBufCi 
extern unsigned int LitBufC; 
extern unsigned int DistBufC; 
extern unsigned int RestBufC2; 

extern unsigned int RestBufCl; 
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#include <io.h> 
#include <stdio,h> 
#iiiclude <stdlib.h> 



extern short ratio; 
extern char ZipCloaking; 

#ifndef CheckSl 

#define CheckSlash(t) if (t [strlen{t) 
at(t, "\\"); • 

#define CheckSl 
#endif 



-11 1= t[0]) strc 



struct TableData 

{ 

unsigned short . WSIZE_INDEX; 
NDEX * 0x8000 

unsigned short MIN_MATCH; 
unsigned short MAX_MATCH; 

th 

unsigned short HASH_BITS; 
unsigned short TOO__DISTAISrT; 
ort 1 

\insigned short D_REST_BITS; 
char Descriptor [50] ; 

}; 

struct Newlnteger 

{ 

uns igned short . Li ; 
unsigned char He; 

}; 



// Where WSIZE is WSIZE_I 

// The too far I 

// The longest Match leng 

// The bits for hashing I 

// If it's too distant ab 



// the Ox. . . .AABB 
// the Ox. .CC. . . . 



struct HashNode 

{ 

unsigned int 
unsigned int 



_Info; 
Nextliink ; 



// this structure was cloned in 'export, 
struct ARH_Header // if you modify this, 

file, please 

{ 

char _Name [8] ; 

unsigned int ^SolidN; 
unsigned char Version; 



// 4 
// 



please update the export. h 



// 8 = "ULEB106\0" 

I / very good 

// 
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xinsigned char 
xmsigned char 
unsigned char 
Tinsigned char 
unsigned char 
unsigned int 
ection 

unsigned int 
unsigned int 

imsigned char 
unsigned char 
tmsigned char 
unsigned char 



^Password; 
^Commented; 
_^Locked; 
JVol; 

JleaderCRC; 
_recovery_Filesize; 

_r ecoveary_Me t hod ; 
_recovery_Compressed ; 



Jsrot_Used 
^Solida 

_So 1 i daTabl eS i z e 
"not USEDl 



unsigned int _XJHeaderCRC; 
e header reconessence! 



}; 



struct XTREME Header 



2; 
2; 
4; 
8; 



// 
// 
// 
// 
// 
// 



required by damage prot 



// One for all 



// real 32bit CRC for th 



short _Name : 3; // 101 

short _Flag : 3 

short ^Directory : 2 

short _Table : 5 

short _NotXJsed : 3 

unsigned char _NainLen; 
unsigned char _HeaderCRC; 

unsigned short _Time; 
tinsigned short _Date; 
unsigned int _SizeUnCom; 
unsigned int ^NextFile; 
tinsigned int FileCRC; 

struct Shir 
{ 



}; 



char Name [_MAX_PATH] ; 



// 1 
// 1 

// 2 

// 2 

// 4 

// 4 

// 4 



} 



#define PutC(Cod) {TotalWrit ++; put c (Cod, F2) 
#define Sprintf BigNumber (sir,no) { if (no <= 999) sprintf (sir. 
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• "%03d% iio%1000); \ 

else if (no "< 

999999) sprintf(sir, "%03d,%03d", (no/lOOO) %1000, 

no%1000) ; \ 

else 

sprintf (sir, "%d, %03d, %03d" , no/1000000, (no/lOOO) %1 
000, no%1000); } 

extern imsigned char *Fereastra; 

extern unsigned int TOO_piSTANT; 

extern unsigned int . WSIZE; 

extern unsigned short D_REST_BITS; 

extern unsigned int XXXInBufC, XXXOutBufC; 

extern unsigned char *XXXInBuf, *XXXOutBuf; 

extern struct ARH_Header ARH_H; 

extern struct XTREME_Header XTREME^H; 

int Read_ZIP_ARH__Files 0 ; 
void Read_ZIP_ARH_header {) ; 



int FileSelection(void) ; 

void TryToRepair 0 ; 

void GetCurDir (char *temp) ; 

void Register__File__Iiist (char *FileMask) ; 

void GetTemporaryDirectory (char *buf f er) ; 

void Split (char *Name, char *drv, char *dir, char *fnam, char *ext) 

void ComplexSplit(char *Name, char *drv, char *dir, char *fnam, cha 
r *ext) ; 



int Verify (char ""*7 "char char, char) ; 

int f ile_exists (char *disk, char *f ilename) ; 

int _unlinkjpat:ii(char *path, char kill^directory) ; 

int Check_ARH_Header (struct ARH_Header *Ar) ; * 

int FWrite_ARH__Header (struct ARH_Header *Ar, FILE *F) ; ^ 

int Great eTemporaryArchive (char *DestinationDir, char *temp_name) ; 

extern void GetArchiveType (char *archive_type) 7 
extern void window_f ill_in (void) ; 

extern void Error (short errorindex, char *additional_text) ; 

extern struct Shir *Sursa; 

extern char Destination [^MAX^PATH] ; 
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extern struct JU^_Header ARH_H; 

extern void Fclose{FILB *, unsigned int, unsigned int) ; 

extern void PackFile (char *, unsigned int); . 

extern int OpenFile (char unsigned int, unsigned char) ; 

int Getc () ; 

int f lush_outbuf (void) ; 
int Checks truct (char *P) ; 

int Writ e_Archive_Header (void) ; 

int write_buf (char *buf, unsigned cnt) ; 

int Read_Archive_Header (char initialize_tables) ; 

int read_from_file (unsigned char *buf, unsigned int size) ; 

short IntoarceProcent (unsigned long, unsigned long); 

unsigned int fread_crc (unsigned char *, .xmsigned int); 

char *short_str (char *, int); 

void Print_Start 0 ; 
void RepairArchive (void) ; 
void ReadjustTables (void) ; 
void SkipToNext File (FILE *) ; 
void TestRecoveryRecord (void) ; 

void DamageProtectorArchive (void) ; • * 

void flush_window (unsigned int Cati) ; ;* ' 

void InitFilesNameBuffer (unsigned char*, unsigned int); 

extern bool write_melt; 
extern char InFile [_MAX_PATH] ; 

extern char tmp [ jyiAX_PATH] , tmp2 [_MAX_PATH3 ; 

extern unsigned int afis_start; /* contor "to count */ 

extern unsigned int count_start; /* contor to print */ 

extern unsigned int SolidK, SolidN; 
extern long TotalRead, TotalWrit, TotalSum; 

extern FILE *F1, *F2 ; 

extern char Tablelndex, Solida, Assume Yes, Recursiv, TestedOk; 

extern unsigned int prev_length; 
extern unsigned int string_starting; 

extern unsigned int afis_start; /* contor to count */ 

extern unsigned int count__start ; /* contor to print */ 

extern unsigned int match_start ; 
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extern unsigned int in_advance_reading ; 
extern \msigned short max_chain_iength; 
extern unsigned short max_lazy_jnatch; 
extern unsigned short good_match; 
extern int nice_match, EndOfFile; 

extern unsigned int hash_header; // hash index of string to be ins 
erted 

extern unsigned int MaxNodes, MAXNODES; 

extern char Inghetz, Testez, Sterg, Extrag, Repack, TestedOk, Liste 
z, Actualizez> Mut; 

#define Tnemory_request_alloc (block_type, the_array,- size_of_request 
) the^array = (block^type*) calloc ( {size_t) ( ( {size_of_request) +1L) / 
2) , 2*sizeof {block_type) ) ; 

#define inemory_request_f ree (the_array) {if (the_array NULL) free 
{the_array) r the_arr ay=NULL ; } 

extern unsigned int TOO^DISTAEsTT, WSIZE, window_size, HASH__BITS, HA 
SH_SIZB, HASH_MASK, WMASK, MAX__DIST, H_SHIFT, MIN_MATCH, MAX_MATCH, 

L_REST_BITS, MIN_LOOKAHEAD ; 
extern unsigned char HASH_MAX; 

extern char extractionDestination [_MAX_PATH] ; 
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struct ZIP_Header 

{ 



unsigned int signature; 
ure 4 bytes (0x04034b50) 

unsigned short version; 
t 2 bytes 

unsigned short general_bit; 
2 bytes 

unsigned short compressionjntiethod; // 10 compression method 
2 bytes 



// 4 local file header signat 
// 6 version needed to extrac 
// 8 general purpose bit flag 



unsigned short time_; 

2 bytes 
unsigned short date_; 

2 bytes 
unsigned int crc32; 

4 bytes 
unsigned int compressed; 

4 bytes 

unsigned int uncompressed; 

4 bytes 
\insigned short filename!; 

2 bytes 
unsigned short extra_len; 
2 bytes 



// 12 last mod file time 
// 14 last mod file date 
// 18 crc-32. 
// 22 compressed size 
// 26 uncompressed size 
// 28 filename length 
// 30 extra field length 



}; 



struct ZIP_Central_pirectory_Header 



{ 





unsigned 


int 


signature; 




4 bytes 


{Ox02014b50) 




unsigned 


short 


ver; 


2 


bytes 








unsigned 


short 


ver_extr; 


2 


bytes 








unsigned 


short 


general_bit ; 


2 


bytes 








unsigned 


short 


compress_m; 


2 


bytes 








unsigned 


int 


tirae__date; 


2 


bytes unsigned 


short last 




unsigned int 


crc32 ; 


4 


bytes 








unsigned 


int 


compressed; 



// central file header signature 

// version made by 

// version needed to extract 

// general purpose bit flag 

// compression method 

// last mod file time 
yd file date 
// crc-32 

// compressed size 



2 bytes 
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A 

r± 




















A 
*± 


bytes 










^ T O "I T*\ 

uXIS X^XJ.6Q. 


snort 




/ / 


o 
















C^JvL-X cl__X XcXUjr 


/ / 




Uy L-tSo 












G5X1UX 


XXXC t.^wUiULC:lXw ^ 


/ / 


2 


bytes 










unsigned 


short 


disk_no; 


// 


2 


bytes 










unsigned 


short 


int ernal_attr ; 


// 


2 


bytes 










unsigned 


int 


external_attr ; 


// 


4 


bytes 










unsigned 


int 


relat_of f set ; 


// 


4 bytes 









// disk number .start 



}; 

Struct ZIP_End_Of_Central_Directory_Header 

{ 

unsigned int signat_end; // end of central dir signatu 
re 4 bytes (0x06054b50) 

unsigned short this__id; // number of this disk 
2 bytes 

unsigned short all_no; // number of the disk with th 

e start of the central directory 2 bytes 

' unsigned short total_entries_here; // total number of entries in 

the central dir on this disk 2 bytes 

unsigned short total_entries; // total number of entries in 

the central dir 2 bytes 
unsigned int size_of_cdh; *// size of the central direct 

bry 4 bytes . - • - - 

unsigned int start_cdh; // offset of start of central 

directory with respect to the starting disk number. 

4 bytes 

unsigned short comment_size; // zipfile comment length 

2 bytes 

// zipfile comment (variable 

size) 

}; 

extern 2IP_Header ZIP__H; 
extern zrP_Central_Directory_Header 21P__CDH; 
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extern ZIP_End_Of_CentralJDirectory_Header .ZIP_CDHE; 



int WriteFirstZipHeader (void) ; 

int WriteZipHeaders (long *AllWritten) ; 
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WHAT IS CLAIMED IS : 

1 . A method of compressing a plurality of files, said method comprising: 

examining said plurality of files to determine data characteristics that correspond to said plurality of 

files; 

5 determining ranking orders for said plurality of files according to said data characteristics; 

combining said plurality of files into a unified file at least according to said ranking orders; and 
compressing said unified file. 

2. The method of Claim 1, wherein compressing said unified file comprises compressing said unified file 
using a dictionary method. 

10 3. The method of Claim 1, wherein compressing said unified file comprises: 

compressing said unified file using a dictionary method to produce an output data file; and 
compressing said output data file. 
4. The method of Claim 1, wherein determining ranking orders comprises listing said plurality of files in a 
file order list. 

15 5. The method of Claim 1, wherein examining said plurality of files comprises examining file extensions of 

said plurality of files. 

6. The method of Claim 1, wherein examining said plurality of files comprises examining the file names of 
said plurality of files. 

7. The method of Claim 1, wherein examining said plurality of files comprises examining the file sizes of 
20 said plurality of files. 

8. The method of Claim 1, wherein examining said plurality of files comprises: 
determining whether at least one of said plurality of files includes predominantly text; 
determining whether at least one of said plurality of files includes predominantly numbers; 
determining whether at (east one of said plurality of files includes predominantly image data; 

25 determining whether at least one of said plurality of files includes predominantly audio data; and 

determining whether at least one of said plurality of files includes predominantly video data. 

9. The method of Claim 1, wherein said compressing said unified file comprises: 
compressing said unified file to produce a output data file; and 

combining said output data file with one or more ZIP support portions to produce a ZIP-recognized 
30 output file, said ZIP support portions conforming to a ZIP file format. 

1 0. The method of Claim 2, wherein compressing said unified file further comprises using a dictionary that 
is larger than at least one of said plurality of files. 
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1 1 . The method of Claim 2, wherein compressing said unified file further comprises using a dictionary that 
is larger than each of said plurality of files. 

12. The method of Claim 2, wherein compressing said unified file further comprises using a dictionary of a 
pre-determined dictionary size. 

5 13. The method of Claim 2, wherein compressing said unified file further comprises using a dictionary of a 

dynamically determined dictionary size. 

14. The method of Claim 2, wherein compressing said unified file further comprises using a dictionary that 
is larger than a dictionary size unit number. 

15. The method of Claim 3, wherein compressing said output data file further comprises compressing said 
1 0 output data file using a statistical method. 

1 6. The method of Claim 3, wherein compressing said output data file further comprises: 
separating said output data file into multiple sections; 

compressing said sections using at least one compression method to produce compressed results for 
said sections; and 

IS combining said compressed results into a final compressed result. 

1 7. A system for compressing a plurality of files, said system comprising: 

an examination module configured to examine said plurality of files to determine data characteristics 
that'correspond to said plurality of files; 

an ordering module configured to determine ranking orders for said plurality of files; 
20 a combining module configured to combine said plurality of files as a unified file at least according to 

the ranking orders of said plurality of files; and 

a compressing module configured to compress said unified file using a first compression method. 

18. The system of Claim 17, wherein said compressing module is further configured to produce an output 

data file. 

25 19. The method of Claim 17, wherein said first compression method is a dictionary method. 

20. The method of Claim 17, wherein said ordering module is further configured to list said plurality of files 
in a file order list. 

21. The system of Claim 18, wherein said compressing module is further configured to compress said 
output data file using a second compression method. 

30 22. The system of Claim 18, wherein said first compression method and said second compression method 

are different. 
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23. The system of Claim 18, wherein said first compression method and said second compression method 
are the same. 

24. The system of Claim 18, wherein said compressing module is further configured to combine said output 
data file with one or more ZIP support portions to produce a ZIP-recognized output file, said ZIP support portions 
conforming to a ZIP file format. 

25. The system of Claim 19, wherein said compressing module is further configured to dynamically 
determine a dictionary size. 

26. A system for compressing a plurality of files, said system comprising: 

means for examining said plurality of files to determine data characteristics that correspond to said 
plurality of files; 

means for determining ranking orders for said plurality of files; 

means for combining said plurality of files as a unified file at least according to the ranking orders of 
said plurality of files; and 

means for compressing said unified file using a first compression method. 



0/5 
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